ilk iki sütündaki hücreye bağlı satır nasıl silinir

[yusufbayram]

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


arkadaşlar yukadaki makroyu kullanarak satırları silebiliyorum ama bir türlü b1 ve c1 hücrelerini de dikkate aldırarak bu işi yaptırmak istiyorum lütfen yardımcı olur musunuz

şimdiden teşekkürler

 

[yusufbayram]

hocam bu işleri bilen kimse yokmu ya
lütfen hocam