Hi excelrequest
This code assumes that F4 has a header label. It'll filter the worksheet for all records with blanks in column F, row 5 downward and then delete all those rows. The procedure hasn't been tested.
Sub Filter_Delete()
Dim LR As Long
LR = Cells.Find("*", Cells(Rows.Count, Columns.Count), SearchOrder:=xlByRows, _
SearchDirection:=xlPrevious).Row
ActiveSheet.AutoFilterMode = False
ActiveSheet.Range("F4:F" & LR).AutoFilter Field:=1, Criteria1:="=",
Range("F5:F" & LR).SpecialCells(xlCellTypeVisible).EntireRow.Delete
ActiveSheet.AutoFilterMode = False
End Sub
Hope this helps.
John
Bookmarks