I am making some good headway on my project now, but have just run into this snag. I have a cell that is formed by merging 5 columns and one row into one cell (A10:E10). The data in that cell (which will always be text, even if there are numbers present) needs to be copied into another merged cell that is made up of 3 collumns and 3 rows (B17:D19).
Everytime I try to run the code I get the following error: Run-time error '1004': The information cannot be pasted because the Copy area and the paste area are not the same size and shape.
Anyone have any suggestions on how to fix this? My code is below. It hangs up at line 6:
Thanks for any help!
Everytime I try to run the code I get the following error: Run-time error '1004': The information cannot be pasted because the Copy area and the paste area are not the same size and shape.
Anyone have any suggestions on how to fix this? My code is below. It hangs up at line 6:
Code:
'Step 5: Copy the data from the County sheet into the blank template
Sheets(CurrentCounty).Select
Range("A10").Select
Selection.Copy
Sheets("PDA Totals").Select
Cells(PDATotalLastRow, 1).Offset(1, 1).Select
Selection.PasteSpecial Paste:=xlPasteValues
Sheets(CurrentCounty).Select
Range("H12:AH13").Select
Selection.Copy
Sheets("PDA Totals").Select
Cells(PDATotalLastRow, 8).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues
Sheets(CurrentCounty).Select
Range("H14:J14").Select
Selection.Copy
Sheets("PDA Totals").Select
Cells(PDATotalLastRow, 8).Offset(3, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues
Sheets(CurrentCounty).Select
Range("N14:P14").Select
Selection.Copy
Sheets("PDA Totals").Select
Cells(PDATotalLastRow, 8).Offset(3, 4).Select
Selection.PasteSpecial Paste:=xlPasteValues
Sheets(CurrentCounty).Select
Range("T14:V14").Select
Selection.Copy
Sheets("PDA Totals").Select
Cells(PDATotalLastRow, 8).Offset(3, 8).Select
Selection.PasteSpecial Paste:=xlPasteValues
Sheets(CurrentCounty).Select
Range("Z14:AB14").Select
Selection.Copy
Sheets("PDA Totals").Select
Cells(PDATotalLastRow, 8).Offset(3, 12).Select
Selection.PasteSpecial Paste:=xlPasteValues
Thanks for any help!