VBA Copying Filtered Lists?

I have the following snippet of code which runs a filter on a list and copies the filtered values to the first available row on another sheet.

However, i get an error when there is no data after the filter. How can i change the code so that if there is no data, it simply moves onto the next line.

Here's my code:

Code:
Sheets("Sheet4").Select
lastrow = Range("A" & Rows.Count).End(xlUp).Row
Range("F2:F" & lastrow).Formula = "=countif(d$2:D2,D2)"
ActiveSheet.Range("$A$1:$F$" & lastrow).AutoFilter Field:=6, Criteria1:=">1"
Range("A2:F" & lastrow).Select
Selection.SpecialCells(xlCellTypeVisible).Copy
Sheets("Sheet6").Select

[code]....