boş satırları silme yaparken

[yusufbayram]

meraba boş satırları silebildiğim bir makro oluşturdum ancak makro sadece a1 sütününu dikkate alıyor ben istiyorumki a1 sütününun yanıda b1 ve b2 sütünlarını da dikkate alsın

Sub BosSatirlariSil()
For i = [a65536].End(3).Row To 1 Step -1
If Cells(i, 1) = "" Then Rows(i).Delete shift:=xlUp
Next i
End Sub

gerekli düzelmeleri yapabilirseniz çok işime yarayacak
hadi ustalar konuya bi el atalım

tşk selamlar