(Last Variation)copy the data from sheet1 and paste that data to sheet2 each first empty row of each  row  into each table

Avinash Singh
Avinash Singh used Ask the Experts™
on
column highlighted in red colour nothing to do with that and we don't have to consider the red highlighted colour column, No role of that data
the coloumn highlighted in yellow colour we have to work on that
copy that data and paste that data to sheet2 each first empty row of each  row  into each table
in sheet2 also we don't have to consider the red highlighted coloumn no role of that coloumn
Book2.xlsm
Comment
Watch Question

Do more with

Expert Office
EXPERT OFFICE® is a registered trademark of EXPERTS EXCHANGE®
Excel & VBA Expert
Most Valuable Expert 2018
Awarded 2015
Commented:
Hi Avinash,

Please give this a try...

Sub CopyData()
Dim sws As Worksheet, dws As Worksheet
Dim lr As Long, lc As Long, dlr As Long, dlc As Long, r As Long, c As Long
Dim Rng As Range

Application.ScreenUpdating = False

Set sws = Sheets("Sheet1")
Set dws = Sheets("Sheet2")
lr = sws.Cells(Rows.Count, 3).End(xlUp).Row
lc = sws.Cells(1, Columns.Count).End(xlToLeft).Column

If lc < 3 Then Exit Sub

For c = 3 To lc
    Set Rng = dws.Range("A:A").SpecialCells(xlCellTypeConstants, 3).Areas(c - 2)
    For r = 2 To lr
        dlr = Rng.Cells(r).Row
        dlc = dws.Cells(dlr, Columns.Count).End(xlToLeft).Column + 1
        sws.Cells(r, c).Copy dws.Cells(dlr, dlc)
    Next r
Next c

Application.ScreenUpdating = True
End Sub

Open in new window

Author

Commented:
Thnx Neeraj Sir for giving ur precious time and support to this post
Subodh Tiwari (Neeraj)Excel & VBA Expert
Most Valuable Expert 2018
Awarded 2015

Commented:
You're welcome Avinash!

Do more with

Expert Office
Submit tech questions to Ask the Experts™ at any time to receive solutions, advice, and new ideas from leading industry professionals.

Start 7-Day Free Trial