Sub ClearNonHighLighted()
Application.ScreenUpdating = False
Dim lRow As Long
lRow = Range("F" & Rows.Count).End(xlUp).Row
For Each cell In Range("F2:F" & lRow)
If cell.Interior.ColorIndex = xlNone Then
cell.EntireRow.ClearContents
End If
Next
Columns("A").SpecialCells(4).EntireRow.Delete
Application.ScreenUpdating = True
End Sub