Macro to copy paste info from every other cell

[ljuarez]

I have a table like this:
[TABLE="width: 500"]
<tbody>[TR]
[TD]1/2/14
[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD][/TD]
[TD]2345[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]1/6/14[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD][/TD]
[TD]34665[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]1/7/14[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD][/TD]
[TD]5473457[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
</tbody>[/TABLE]

For Column A-I would like to create a macro that will copy the info from cell A1 and paste in in A2. This will continue all the way to the last row containing info which will vary. So after the first copy/paste, it well go to A3 and copy paste onto A4, A5 will copy and paste onto A6 etc.

For Column B- The same only it will copy the contents of B2 and paste it on B1, B4 copy/paste to B3 all the way until the last row of data.

Thanks

 

[kevin lazell]

hi ljuarez
try the following code and see if its what you need

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim a, b As Variant
x = Range("a" & Rows.Count).End(xlUp).Row
Do
a = a + 1: b = b + 2
Range("a" & b) = Range("a" & a)
Range("b" & a) = Range("b" & b)

a = a + 1
If b > x Then Exit Sub
Loop
End Sub

good luck

kevin