AutoFilter and deleting blank rows

[drozek]

I wrote this macro, but I feel like it can be written better, I used the macro recorder to write. Any suggest of how to delete what is seen on the screen instead of the selection.end down and right? I am filtering any blanks in Col 6 and delete all these blank cells based on the blanks in Col 6.

ActiveSheet.Range("$A$1:$N$817").AutoFilter Field:=6, Criteria1:="="
Columns("A:A").Select
ActiveSheet.AutoFilter.Range.Offset(1).SpecialCells(xlCellTypeVisible).Cells(1, 2).Select
ActiveCell.Offset(0, -1).Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.EntireRow.Delete
ActiveSheet.Range("$A$1:$N$790").AutoFilter Field:=6

 

[DanteAmor]

Try this

Sub test()
    Dim sh As Worksheet
    Set sh = ActiveSheet
    Application.ScreenUpdating = False
    sh.Range("$A$1").AutoFilter 6, "="
    sh.AutoFilter.Range.Offset(1).EntireRow.Delete
    sh.ShowAllData
End Sub

 

[drozek]

Try this

Sub test()
    Dim sh As Worksheet
    Set sh = ActiveSheet
    Application.ScreenUpdating = False
    sh.Range("$A$1").AutoFilter 6, "="
    sh.AutoFilter.Range.Offset(1).EntireRow.Delete
    sh.ShowAllData
End Sub

Perfect thank you very much works so much better.

 

[DanteAmor]

Perfect thank you very much works so much better.

I'm glad to help you. Thanks for the feedback.