Move Data

[smartguy]

Hello all,

Good day. I have excel file in the below format.

Excel 2013/2016

	A	B	C
data 1	Data 2	Data 3

<colgroup><col style="width: 25pxpx"><col><col><col></colgroup><thead>
</thead><tbody>
[TD="align: center"]4[/TD]

[TD="align: center"]5[/TD]
[TD="align: right"]1[/TD]
[TD="align: right"]2[/TD]
[TD="align: right"]2[/TD]

[TD="align: center"]6[/TD]
[TD="align: right"]1[/TD]
[TD="align: right"][/TD]
[TD="align: right"]2[/TD]

[TD="align: center"]7[/TD]
[TD="align: right"][/TD]
[TD="align: right"][/TD]
[TD="align: right"]2[/TD]

[TD="align: center"]8[/TD]
[TD="align: right"][/TD]
[TD="align: right"][/TD]
[TD="align: right"]2[/TD]

[TD="align: center"]9[/TD]
[TD="align: right"][/TD]
[TD="align: right"][/TD]
[TD="align: right"]2[/TD]

</tbody>

My data​

In need to move data in to consolidation sheet.

Excel 2013/2016
	A	B	C
1	data 1	Data 2	Data 3
2	1	2	2
3	1	1	1
4	1
Consolidation

Final result :

Excel 2013/2016
	A	B	C
1	data 1	Data 2	Data 3
2	1	2	2
3	1	1	1
4	1
5	data 1	Data 2	Data 3
6	1	2	2
7	1		2
8			2
9			2
10			2
Consolidation

Condition :

some times data 1 have data but data 2 & data 2 Dnt have data.

Please help.

 

[Fluff]

How about

Sub Consolidatedata()

   Dim NxtRw As Long
   
   NxtRw = Sheets("Consolidation").Cells.find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Offset(1).Row
   Sheets("My Data").UsedRange.Copy Sheets("Consolidation").Range("A" & NxtRw)
End Sub