B sütununda Boş hücre gördüğünde tüm sütunu sil

[aykut12344]

Sub hareket()
Dim i As Long
Application.ScreenUpdating = False
For i = Cells(65536, "B").End(xlUp).Row To 1 Step -1


If UCase(Cells(i, "B").Value) = "" Then Rows(i).Delete

Next i
Application.ScreenUpdating = True
MsgBox "İşlem tamadır.", vbOKOnly + vbInformation, Application.UserName
End Sub

Araştırdıktan sonra bu kodu buldum. İstediğimi yapıyor ancak anladığım kadarıyla sınırsız döngüye giriyor gibi geldi bana. B sütununda 500 binden fazla veri var ve benim istediğim mesela 549234 satıra kadar B sütununa bakıp boş hücrelere denk gelen satırı komple silmesi. 65536 yerine 549234 yazsam doğru yapmış olur muyum?

 

[Necdet]

Merhaba,

Bunun için makroya gerek var mı?
İmzamı okuyunuz.