Excel Macro query

[nofootprints]

Please help me to write a macro to perform a basic function. Sadly i am so thick and dont seem to be able to sort it out myself.

i have a spreadsheet with all information in column A
The information is in cells as follows

A1
A3
A5
down to 16800
every second row is blank

I need to move the information in the cells as follows

A1 static
A3 to B1
A5 to C1

Then it loops

A7 to A2
A9 to B2
A11 to C2

Loops again

A13 to A 3
A15 to B 3
A 17 to C3

and so on.

Really sorry to ask for something so basic.

Additionally please advise on best way to progress with a basic knowledge

 

[syntaxed]

Sub mover()
Dim srcRowCtr As Long, destRowCtr As Long, colCtr As Long
destRowCtr = 1
colCtr = 1
For srcRowCtr = 1 To 16800 Step 2
    Cells(destRowCtr, colCtr).Value = Cells(srcRowCtr, 1).Value
    colCtr = colCtr + 1
    If colCtr = 4 Then
        colCtr = 1
        destRowCtr = destRowCtr + 1
    End If
Next
Range("A" & destRowCtr & ":" & "A" & srcRowCtr).Delete
End Sub