This is a gist on about Delete Filtered Data : Excel Macro, Excel VBA; powered by Imam Uddin; imamuddinwp.

Delete Filtered Data : Excel Macro, Excel VBA

Sub Delete_Fitered_Rows()
'
' Macro1 Macro
'

'
     Dim yn_Cond As Integer

        yn_Cond = MsgBox("Are you Confirm to DELETE VISIBLE ROWS??/" & vbNewLine & "-------------------------" & vbNewLine & " You may lost your data !!!", vbYesNo + vbQuestion, "proudLy powered by ImAmUdDiN ")
        
        If yn_Cond = vbYes Then
        
        ActiveSheet.AutoFilter.Range.Offset(1, 0).Rows.SpecialCells(xlCellTypeVisible).Delete (xlShiftUp)
        
        End If
End Sub


'Without Message or Warnings  ⚠ 

Sub Delete_Fitered_Rows1()
        ActiveSheet.AutoFilter.Range.Offset(1, 0).Rows.SpecialCells(xlCellTypeVisible).Delete (xlShiftUp)
        ActiveSheet.ShowAllData
        ActiveWorkbook.Save
End Sub