I am attempting to set a filter, select the list, clear the filter and then paste the list to another column. I am getting an error "Paste method of Worksheet class failed".

here's a sample macro of what I am attempting to accomplish.

Sub paste()
'
' paste Macro
'

'
' Sets the filter to remove blanks
ActiveSheet.Range("$A$8:$F$23").AutoFilter Field:=5, Criteria1:="<>"
Range("E15:E17").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
' Clears the filter
ActiveSheet.Range("$A$8:$F$23").AutoFilter Field:=5
Range("F9").Select
ActiveSheet.paste
End Sub

Any help would be much appreciated...