How to copy rows to a new worksheet if column F is not blank

[eileendenver]

I would like to copy rows to a new worksheet if column F (date of completion) is not blank. I would also like to copy over the headings if possible.

I will greatly appreciate your help since I have very limited VBA experience.
Thank you, in advance.

 

[acw]

Hi

Try

Sub ddd()
Range("a1").AutoFilter field:=6, Criteria1:="<>"
Range("a1").CurrentRegion.Copy Destination:=Sheets("sheet2").Range("a1")
Range("a1").AutoFilter
End Sub

Assumes that you are in sheet1 and the data to sort starts in A1 with headings in row 1. It doesn't clear out any existing data in the output sheet.


Tony


Tony