Copy Rows from individual Sheets and paste the same in a new sheet in excel using VBA

[cowshal]

Hi Experts,

I am a novice in using VBA or Macros in excel. I need a help in copying all the available rows from Individual Sheet say A, B & C that needs to be copied to Sheet D in the given below fashion in a Worksheet:

Copy Row1 from Sheet A
Copy Row1 from Sheet B
Copy Row1 from Sheet C

Output Results in Sheet D should be:
Row1 = Paste Row1 from Sheet A
Row2 = Paste Row1 from Sheet B
Row3 = Paste Row1 from Sheet C
Row4 = Paste Row2 from Sheet A
Row5 = Paste Row2 from Sheet B
Row6 = Paste Row2 from Sheet C

I have around 4224 rows in Sheets A, B & C that needs to be copied to Sheet D. Hope i have explained what i am looking at above clearly. If you need any clarifications then, please let me know.

Your help would be greatly appreciated...

Thanking a lot in advance...


Thanks & Regards,
Kaushal

 

[VoG]

Hello and welcome to MrExcel.

Do the sheets A, B and C each have the same number of rows?

Are the sheet names actually A, B, C and D?

 

[cowshal]

Yes. The Sheet names are "A", "B", "C" & "D".

 

[VoG]

Try this - it will take a while to run

Sub ABCtoD()
Dim LR As Long, i As Long, j As Long
Application.ScreenUpdating = False
LR = Sheets("A").Range("A" & Rows.Count).End(xlUp).Row
For i = 1 To LR
    j = j + 1
    Sheets("A").Rows(i).Copy Destination:=Sheets("D").Range("A" & j)
    j = j + 1
    Sheets("B").Rows(i).Copy Destination:=Sheets("D").Range("A" & j)
    j = j + 1
    Sheets("C").Rows(i).Copy Destination:=Sheets("D").Range("A" & j)
Next i
Application.ScreenUpdating = True
End Sub

 

[cowshal]

Hi Peter,

You are just amazing....mind blowing...

It just worked the way i needed....

I was searching on net for the VBA code since a week and i could not get any solution for the above scenario but, you did it just in minutes...

Thanks a lot... & Have a nice day...