Satır silme

[Barons]

merhaba
ekteki dosyada durum sütunundaki sıfır değeri olanları makro ile sildirmek istiyorum yani komple satır sil şeklinde.Geriye sadece 1 değeri olanları altalta sıralamak mümkünmüdür?

Çok teşekkürler

 

[hamitcan]

Sub Sil()
    For i = [a65536].End(3).Row To 4 Step -1
    If Cells(i, 3) = 0 Then Rows(i).Delete
    Next
End Sub

 

[Barons]

Hamit hocam çok teşekkürler