simple request:

after using the auto filter tool, the rows that got sorted out have a height
= 0. I just want a program to delete rows in which the height is 0. or is
there sia way to set up the auto filter to do this, even better.

Sub row_delete()

For i = 1 To 1000

If Rows(i).RowHeight = 0 Then Rows("i").Delete Shift:=xlUp

Next i

End Sub