VBA: Deleting Visible rows using Auto Filter; Excluding Header

[Offroadracer_814]

Am a basic VBA user. I mainly use the record function to create my macros and then update as much as possible. I am creating a report at work that takes the same repetitive steps. So I am wanting to macro as much as I can. But, I do not know how to macro to Delete Visible Row using the Auto Filter. Excluding the header.

I am trying to delete all rows that do not have an "****" in the column.

I have more data than that in the column. I just removed all the duplicates for a smaller picture sample.

I have two columns I will use this VBA code for.

Thanks

Kevin

 

[Jeffrey Mahoney]

This macro will remove all rows that are visible. You will need to filter and show what you want deleted.

'Put your cursor in the column where you want to delete all visible rows
Sub DeleteVisRows()
    Dim Rng As Range
    Dim Sht As Worksheet
    Dim Cel As Range
    Dim CLM As Long
    
    Set Sht = ActiveSheet
    Set Cel = Selection.Resize(1, 1)
    CLM = Cel.Column
    
    With Sht
      If .Cells(.Cells.Rows.Count, CLM).End(xlUp).Row > 2 Then  'Make sure there is something in this column
          'Row 2 to last non-blank row
        Set Rng = Range(.Cells(2, CLM), .Cells(.Cells.Rows.Count, CLM).End(xlUp))
        Set Rng = Rng.SpecialCells(xlCellTypeVisible).EntireRow
        Rng.Delete
      End If
    End With
      
End Sub