Hi Gordon,

Try:

'=============>>
Public Sub Tester()
   Dim WB As Workbook
   Dim SH As Worksheet
   Dim Rng As Range

   Set WB = Workbooks("YourBook.xls") '<<=== CHANGE
   Set SH = WB.Sheets("Sheet1")       '<<=== CHANGE

   On Error Resume Next
   Set Rng = SH.AutoFilter.Range
   Set Rng = Rng.Offset(1).Resize(Rng.Rows.Count - 1)
   Set Rng = Rng.SpecialCells(xlVisible)
   On Error GoTo 0

   If Not Rng Is Nothing Then
       Rng.EntireRow.Delete
   End If
End Sub
'<<=============

You could also perform the operation manually:

Select cells to be deleted
F5 | Special | Visibile cells
Right-click | Delete | Entire row

---
Regards,
Norman