Help copying Data from a merged cell to another merged cell of a different shape?

jft1768

New Member
Joined
Apr 11, 2013
Messages
11
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:

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!
 

Excel Facts

Did you know Excel offers Filter by Selection?
Add the AutoFilter icon to the Quick Access Toolbar. Select a cell containing Apple, click AutoFilter, and you will get all rows with Apple

Forum statistics

Threads
1,215,404
Messages
6,124,715
Members
449,184
Latest member
COrmerod

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top