Boa noite!!

Seria isso...

Sub Talvez_Isso()
    Dim Lastrow As Long
    Application.ScreenUpdating = False
    Lastrow = Cells.Find("0", , , , xlByRows, xlPrevious).Row
    With Range("A1:G" & Lastrow)
        .AutoFilter Field:=7, Criteria1:="<" & 1
    End With
    Range("A2:A" & Lastrow).EntireRow.Delete
    ActiveSheet.AutoFilterMode = False
    Application.ScreenUpdating = True
End Sub

Bom Dia

Alexandre não sei se entendi muito bem eu tenho que mudar alguma coisa???
Rodei sobre meu layout e apagou toda a movimentação deixando somente os títulos.

Att.