Hej,
proszę o pomoc w napisaniu kodu, który będzie usuwał puste rzędy, kiedy napotka w kolumnie B puste pole (wtedy chce skasować cały rząd).
Moje dane są wprowadzone dopiero od kolumny B. Chce żeby jednym kliknięciem usunęło wszystkie puste rzędy.

Mój kod to:

Sub Delete()

Do While ActiveCell.Value <> ""

If ActiveCell.Value = "" Then
ActiveCell.Rows("1:0").EntireRow.Select
Selection.Delete Shift:=xlUp
ActiveCell.Offset(1, 0).Range("B1").Select
End If

ActiveCell.Offset(1, 0).Range("B1").Select

Loop

End Sub

Czy ktoś może poradzić gdzie zrobiłam błąd, makro nie działa?
Aga