Removing rows using vba

[leonardtan]

Would like to remove blank rows using vba. Have highlighted the rows in yellow.
Could you assist.

 

[Nebu]

Hi:

Use the following code:

Sub test()
j& = Me.Cells(Rows.Count, 2).End(xlUp).Row
For i& = j To 4 Step -1
If Cells(i, 2) = vbNullString Then Rows(i).EntireRow.Delete
Next
End Sub

Thanks

 

[jindon]

No loop

Sub test()
    With Range("b3", Range("b" & Rows.Count).End(xlUp))
        .AutoFilter 1, ""
        .Offset(1).EntireRow.Delete
        .AutoFilter
    End With
End Sub

 

[leonardtan]

thanks will try