Pasting code error

[will31]

This line doesn't work and I can't figure out why. Any ideas?

 Workbooks("Revenue allocation.xlsx").Sheets("2010").Range("A4", Range("AM" & Rows.Count).End(xlUp)).Copy Workbooks("Summary.xlsm").Sheets("Allocations").Range("A2715")

 

[Andrew Poulsom]

In what way doesn't it work? Please be specific.

 

[will31]

When the code runs it stops with an error on this line. This is the only one that creates an error. Is it the part where it finds the last row?

 

[GTO]

Not tested, try:

Workbooks("Revenue allocation.xlsx").Worksheets("2010").Range("A4", Workbooks("Revenue allocation.xlsx").Worksheets("2010").Range("AM" & Rows.Count).End(xlUp)).Copy Workbooks("Summary.xlsm").Workdheets("Allocations").Range("A2715")

 

[GTO]

Still not tested, but more likely:

Range(Workbooks("Revenue allocation.xlsx").Worksheets("2010").Range("A4"), Workbooks("Revenue allocation.xlsx").Worksheets("2010").Range("AM" & Rows.Count).End(xlUp)).Copy Workbooks("Summary.xlsm").Sheets("Allocations").Range("A2715")