View Single Post
 
Old 12-05-2019, 11:43 PM
jolivanes jolivanes is offline Windows 10 Office 2013
Advanced Beginner
 
Join Date: Sep 2011
Posts: 93
jolivanes will become famous soon enough
Default

Code:
Sub Maybe()
With Sheets("Sheet1").Range("A1:A" & Range("A" & Rows.Count).End(xlUp).Row)
    .AutoFilter 1, 0
    .Offset(1).SpecialCells(12).EntireRow.Delete
End With
    ActiveSheet.AutoFilterMode = False
End Sub
Change references where required.