move positive values to the right

[leecavturbo]

code to move any positive values in column to the right?
tia

 

[BobUmlas]

Sub MoveRight()
'Column A
For i=1 to cells(cells.rows.count,1).end(xlup).row
if cells(i,1).value > 0 then cells(i,1).cut cells(i,2)
Next
End Sub

 

[Yahya]

Try this code

Sub Test()
Dim c As Range, LR As Long
LR = Range("A" & Rows.Count).End(xlUp).Row
For Each c In Range("A2:A" & LR)
    If c.Value > 0 Then
        c.Offset(, 1).Value = c.Value
        c.Value = ""
    End If
Next c
End Sub

 

[leecavturbo]

Sub MoveRight()
'Column A
For i=1 to cells(cells.rows.count,1).end(xlup).row
if cells(i,1).value > 0 then cells(i,1).cut cells(i,2)
Next
End Sub

bob editing the above to do only column C it still does A! ?
tia