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.

	A	B	C
1
2	Data1	Data1	Data1
3
4	Data2	Data2	Data2
5
6	Data3	Data3	Data3
7

<tbody>
</tbody>

	A	B	C
1
2	Data1	Data1	Data1
3	Data1	Data1	Data1
4	Data2	Data2	Data2
5	Data2	Data2	Data2
6	Data3	Data3	Data3
7	Data3	Data3	Data3

<tbody>
</tbody>

****** id="cke_pastebin" style="position: absolute; top: 342px; width: 1px; height: 1px; overflow: hidden; left: -1000px;">

Data1

<tbody>
</tbody>

 

[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