Нужно удалить строки, у которых в столбце A нули. Данные начинаются со строки 2.
Как это сделать с помощью макроса?
Макрос
Sub Макрос()
Dim lr As Long, i As Long
' Отключаем монитор, чтобы ускорить макрос.
' Можно ещё отключить формулы, если их много.
Application.ScreenUpdating = False
' Поиск последней заполненной строки в столбце A.
' End не ищет в скрытых строках.
lr = Cells(Rows.Count, "A").End(xlUp).Row
' Удаление нулевых строк.
For i = lr To 2 Step -1
If Cells(i, "A").Value = 0 Then
Rows(i).Delete
End If
Next i
End Sub