Я пытаюсь удалитькаждый строка, в которой значение «X» находится в столбце B с использованием VBA. Однако у меня три проблемы:

Я не могу заставить свой код VBA перейти из активной ячейки в следующую (B3) с помощью метода cell.find (см. Код ниже)Мой код не удаляет всю строку, где значение "X" находится в столбце BОбъем данных в столбце B может варьироваться: он может закончиться на уровне B10 сегодня или B100 завтра (см. Снимок экрана ниже)

Любая помощь будет принята с благодарностью.

Sub RemoveRows()   
    Dim strLookFor As String
    Dim strRow As String

    Worksheets("Sheet1").Range("B2").Activate

    strLookFor = "X"
    strRow = Range("B2").Address

    Do Until ActiveCell.Value = ""        
        MsgBox (ActiveCell.Value)        
        If ActiveCell.Value = strLookFor Then
            Rows.Delete (strRow)
        End If            
        strRow = Cells.Find(what:=strLookFor).Address
    Loop

    MsgBox ("Deleted all rows with value " & strLookFor)    
End Sub