whats the purpose of putting this line twice?
.Range("F3", Cells(.Rows.Count, "F").End(xlUp)).SpecialCells(4).EntireRow.Delete
       .Range("F3", Cells(.Rows.Count, "F").End(xlUp)).SpecialCells(4).EntireRow.Delete