Excel VBA Runtime error 1004

Hi, I have a macro which Doug helped me set up, which basically extracts raw data from 6 sheets, combines then into one raw data sheet, and then separates them back out by location.

When I try and run it on my latest monthly report, i get a runtime error 1004, which says the information can't be pasted because the Copy area and the paste area aren't the same size and shape.

I can't see where there is a difference on my latest spreadsheet versus my new one. Can anyone help? I've put the code as below. It's the ActiveSheet.Paste at the bottom that the debugger higlights.

My other question is, if I have a raw data sheet with no data on it, only headings, will this mess up the macro? Is there a line of code I can put in to allow for this?

Many thanks in advance for any help.

Gem.


Sub CreateRawdataTotal()
'Copy data from Raw Data 1 to Total Raw Data including headings
Sheets.Add after:=Sheets(Sheets.Count)
ActiveSheet.Name = "Total Raw Data"
Sheets("Total Raw Data").Select
Sheets("Raw Data 1").Select
Range("A1").CurrentRegion.Select
Selection.Copy
Sheets("Total Raw Data").Select
Range("A1").Select
ActiveSheet.Paste

'Copy data from Raw Data 2 to Total Raw Data
Sheets("Raw Data 2").Select
Range("A2").Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
Selection.Copy
Sheets("Total Raw Data").Select
Range("A1").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveSheet.Paste