Próbuję usunąćkażdy wiersz, w którym wartość „X” znajduje się w kolumnie B za pomocą VBA. Mam jednak trzy problemy:

Nie mogę przenieść mojego kodu VBA z aktywnej komórki do następnej komórki (B3) za pomocą metody cells.find (patrz kod poniżej)Mój kod nie usuwa całego wiersza, w którym wartość „X” znajduje się w kolumnie BIlość danych w kolumnie B może się różnić: może zakończyć się dzisiaj na B10 lub jutro B100 (patrz zrzut ekranu poniżej)

Każda pomoc zostanie bardzo doceniona.

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