Can Someone help me Please with a Complicated Copying Formula

AlexMach

New Member
Joined
Apr 6, 2009
Messages
17
Hi there,

I'm trying to copy 4 sets of data from 1 sheet to another sheet, these 4 sets of data are for Analysis use. so I have Set A, B, C, D.

In the Current sheet "Overview" set A Range is D18:P18, B Range is D61:P61, C Range is D64:P64 and Range D is D65:P65.

this data I would like to copy to sheet "growth". In this sheet each data range has its own table with headers which is empty for now.

Thus the first set of data will be added into a blank space just below the header for each data range but when I update it I would like the sub to search for the last set of data and copy the data behind the last set.

furthermore if there is no row so it would need to add another row as well.

Can anyone help me solve this?

I would really appreciate anybodies help.

This is what I have come up with. But if I put 2 of these functions one after the other it always tells pastspecial method of range class failed.

Windows(wka).Activate
Sheets("Overview").Select
ActiveSheet.UnProtect Password:="alexmach"
ActiveSheet.Range("D61:P61").Select
Selection.Copy
Windows(wka).Activate
Sheets("Growth").Select
ActiveSheet.UnProtect Password:="alexmach"
Range("D11").End(xlDown).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, SkipBlanks:=False
Application.CutCopyMode = False
ActiveSheet.Protect Password:="alexmach"
ActiveSheet.Range("A1").Select

So I really lost/helpless

Thank you in advance

Regards

Alex
 

Some videos you may like

Excel Facts

How to find 2nd largest value in a column?
MAX finds the largest value. =LARGE(A:A,2) will find the second largest. =SMALL(A:A,3) will find the third smallest

mattaustin01

Board Regular
Joined
Feb 17, 2009
Messages
184
Hi Alex,

Have you tried putting Application.CutCopyMode = True at the very start of the macro?

If it is normally disabled the paste would fail
 

Watch MrExcel Video

Forum statistics

Threads
1,122,518
Messages
5,596,621
Members
414,082
Latest member
sasmita

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
Top