A Sütununda Sıfıra Eşit Hücre Varsa Satırı Komple Sil - Microsoft Excel

A sütunununda ters döngü çalıştırılıyor ve eğer aktif hücrenin değeri sıfıra eşitse satırı komple siliyor.

Option Explicit

Sub EgerDegerSifiraEsitseSatiriKompleSil()
    Dim i As Long
    
    For i = Range("A1048576").End(xlUp).Row To 1 Step -1
        If Cells(i, 1).Value = 0 Then
            Rows(i).Delete
        End If
    Next
End Sub