Noob VBA loop question

[Faller]

I am trying to get a loop running where if there is text in "A3" then it will cut it into C2. Then do the same thing with A5 to C4, A7 to C6 and so on until there is nothing in A(odd). Then I want to delete all the odd rows starting with three (They will all be empty). I can not for the life of me think what to do next. I tried indirect and I know there is a way to make it add to the cell value.

Loop
Sheets("Sheet 1").Select
Pickvar = 3
movevar = 2
cutvar = 2
Do Until IsEmpty(Selection.Value)
ActiveSheet.Range("A" & Pickvar).Select
Selection.Cut Destination = Range("C" & cutvar)
Pickvar = Pickvar + movevar
cutvar = cutvar + movevar

Thank you

 

[Saagar]

try this

Sub sample()
    Sheets("Sheet2").Select
    
    rownum = 3
    
    Do While Cells(rownum, 1) <> ""
        Cells(rownum, 1).Select
        Selection.Cut
        Cells(rownum - 1, 3).Select
        ActiveSheet.Paste
        Rows(rownum).Delete
        rownum = rownum + 1
    Loop
End Sub

 

[VoG]

Try

Sub sample()
Dim LR As Long, i As Long
With Sheets("Sheet2")
    LR = .Range("A" & Rows.Count).End(xlUp).Row
    If LR Mod 2 = 0 Then LR = LR - 1
    For i = LR To 3 Step -2
        .Range("A" & i).Copy Destination:=.Range("C" & i - 1)
        .Rows(i).Delete
    Next i
End With
End Sub