Excel Paste in macros

[chris.williams]

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

[TMS]

Try doing the paste before you remove the filter.

Regards

[nimrod]

This macro will copy constant values from column E ... leaving behind blanks or any cell that does not have a constant

Please Login or Register  to view this content.

[TMS]

I just noticed that your macro is called Paste. You shouldn't use that because it is a reserved word ... and is probably the cause of the error message.

Regards