How to remove rows where cell is blank VBA

[tawoodwa]

Hi all, When I run this code I think it should find where the blank cells are in that range, and then delete the corresponding row, for some reason this throws excel in to a never ending loading loop or something, any ideas why or how i can fix this code?

With worksheet_to_process
    Dim LR As Long, i As Long
    LR = worksheet_to_process.Range("A" & Rows.Count).End(xlUp).Row
    For i = 1 To LR
            With worksheet_to_process.Range("B" & i)
             If .Value = "" Then
             worksheet_to_process.Rows(i).Select
             Selection.Delete Shift:=xlUp
             i = i - 1
             End If
             
            End With
        Next i
    End With

 

[steve the fish]

Here would be one way to write that with a similar method:

With worksheet_to_process
    LR = .Range("A" & Rows.Count).End(xlUp).Row
    For i = LR To 1 Step -1
        If .Range("B" & i).Value = "" Then
            .Rows(i).Delete Shift:=xlUp
        End If
    Next i
End With

 

[Fluff]

If col B is values rather than formulae, you can replace all your code with

worksheet_to_process.Columns(2).SpecialCells(xlBlanks).EntireRow.Delete