Удалить строки, которые не находятся между двумя другими ячейками

Question

Я пытаюсь написать код, который может удалить целые строки, в которых одна из их ячеек не находится между двумя значениями (значения также записаны в двух разных ячейках).

У меня нет фонав VBA и эта проблема кажется мне очень сложной, но поскольку мои данные в Excel, мне нужно использовать VBA. Я написал код ниже, но он не работает.

У меня есть 31 строка и 60 столбцов (все заполнены числами). Мне нужно сравнить все значения в столбце 58 (31 число) с двумя ячейками (например, ячейки BK1 и BL1), и если эти значения не находятся между этими значениями двух ячеек, удалите всю строку, содержащую это значение. Кто-нибудь может помочь?

Sub Deleterow()

Dim wb As Workbook: Set wb = ThisWorkbook
Dim ws As Worksheet
Dim c As Range

Set shSource = wb.Sheets("Sheet1")

    For i = 1 To 31
        If (Sheet1.Range("BK1").Value2 = "") And (Sheet1.Range("BL1") _
           .Value2 = "") Then GoTo Line1
        End If
Line1:
        If (Sheet1.Range(i, 59).Value2 < Sheet1.Range("BK1").Value2 _
            Or Sheet1.Range(i, 59).Value2 > Sheet1.Range("BL1").Value2) Then

            Delete.Rows (i)
        End If
    Next

End Sub