Excel VB Copy Paste alternate Row

[Dpa24]

I have data in even row i would like to copy data from even row and paste into odd row and loop goes to last row of sheet.
[TABLE="width: 500"]
<tbody>[TR]
[TD][/TD]
[TD]A[/TD]
[TD]B[/TD]
[TD]C[/TD]
[/TR]
[TR]
[TD]1[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]2[/TD]
[TD]Data1[/TD]
[TD]Data1[/TD]
[TD]Data1[/TD]
[/TR]
[TR]
[TD]3[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]4[/TD]
[TD]Data2[/TD]
[TD]Data2[/TD]
[TD]Data2[/TD]
[/TR]
[TR]
[TD]5[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]6[/TD]
[TD]Data3[/TD]
[TD]Data3[/TD]
[TD]Data3[/TD]
[/TR]
[TR]
[TD]7[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
</tbody>[/TABLE]



[TABLE="width: 500"]
<tbody>[TR]
[TD][/TD]
[TD]A[/TD]
[TD]B[/TD]
[TD]C[/TD]
[/TR]
[TR]
[TD]1[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]2[/TD]
[TD]Data1[/TD]
[TD]Data1[/TD]
[TD]Data1[/TD]
[/TR]
[TR]
[TD]3[/TD]
[TD]Data1[/TD]
[TD]Data1[/TD]
[TD]Data1[/TD]
[/TR]
[TR]
[TD]4[/TD]
[TD]Data2[/TD]
[TD]Data2[/TD]
[TD]Data2[/TD]
[/TR]
[TR]
[TD]5[/TD]
[TD]Data2[/TD]
[TD]Data2[/TD]
[TD]Data2[/TD]
[/TR]
[TR]
[TD]6[/TD]
[TD]Data3[/TD]
[TD]Data3[/TD]
[TD]Data3[/TD]
[/TR]
[TR]
[TD]7[/TD]
[TD]Data3[/TD]
[TD]Data3[/TD]
[TD]Data3[/TD]
[/TR]
</tbody>[/TABLE]

****** id="cke_pastebin" style="position: absolute; top: 342px; width: 1px; height: 1px; overflow: hidden; left: -1000px;">[TABLE="width: 500"]
<tbody>[TR]
[TD]Data1[/TD]
[/TR]
</tbody>[/TABLE]

 

[Fluff]

Hi & welcome to MrExcel
How about

Sub Dpa24()
   With Range("A2", Range("A" & Rows.count).End(xlUp).Offset(, 2))
      .SpecialCells(xlBlanks).FormulaR1C1 = "=r[-1]c"
      .Value = .Value
   End With
End Sub

 

[Dpa24]

Thank you so much it works

 

[Fluff]

You're welcome & thanks for the feedback