delete row if column f is blank

[ssinghal]

I have a spreadsheet with 5000 rows. I want to delete each row that does not have a value in Column F.

I appreciate the help.

[MikeO]

ActiveSheet.Range("F1:F5000").SpecialCells(xlCellTypeBlanks).EntireRow.Delete

[mdmackillop]

Sub DelBlanks()
ActiveSheet.Range("F:F").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub