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...
Bookmarks