The Autofilter is turned on in the code below.

The copy/paste work (the data is transfered to another worksheet) but the macro crashes on "WorkSheets("2005").PasteP - with the error message: "Paste method of worksheet class failed."

When I look at the source worksheet I can see the "marching ants" around two seperate ranges.

One range is the row that the filter itself is in (rows 2 through 7). The filter is in Row 7. Rows 1 thorugh 6 are unneeded header information.

The second range is the data that I am copy/pasting (and it works).

I have killed myself on this one for two days. Can anyone help this undeserving Newbe?

I also need to find the last row of filtered data not hard code the range (A2:Z157).

Craigm

---------------------------------
Sub Data_05()

Dim srceRng As Range
Dim destRng As Range
Dim i As Integer

'ActiveWindow.Visible = False
Worksheets("2005").Cells.Clear
Windows("060631 Charts_DataDown 3.xls").Activate
Sheets("Datadown").Select
Range("J7").Activate
Selection.AutoFilter Field:=13, Criteria1:=">12/31/2004", Operator:=xlAnd _
, Criteria2:="<7/1/2005"
Range("A1").Activate

'need to find the last row for the range not hard code it.
Set srceRng = Workbooks("060631 Charts_DataDown 3.xls").Sheets("Datadown").Range("A2:Z157")
srceRng.Copy

Sheets("2005").Select
Worksheets("2005").Activate

'ActiveSheet.Paste Destination:=Worksheets("2005").Range("A1")
Range("A1").Select
'ActiveSheet.Paste
'Crashes here but data is pasted
Worksheets("2005").Paste '****** Crashes here every time! ******

'Turn the filter off
Sheets("Datadown").Select
Rows("7:7").Select
Range("J7").Activate
Selection.AutoFilter
ActiveWindow.LargeScroll ToRight:=1
Selection.AutoFilter

End Sub