Hi Erica

You need to give us some more details. Which column is your data in? Does it
start in row 1 or do you have headings? Are you sure you want to move the 3rd
row up one or do you want to move it up 2 rows to be in the same row as the
other data?

Assuming your data is in column A starting in row 1 and you want your
results on one line then this should work.

Sub Move()

Dim lRow As Long
Dim myCol As Range
Dim Cell As Range

lRow = Cells(Rows.Count, 1).End(xlUp).Row
Set myCol = Range(Cells(1, 1), Cells(lRow, 1))
For Each Cell In myCol
Select Case Cell.Row Mod 3
Case 2
Cell.Offset(-1, 1).Value = Cell.Value
Cell.Value = ""
Case 0
Cell.Offset(-2, 2).Value = Cell.Value
Cell.Value = ""
End Select
Next Cell

End Sub

Regards
Rowan


"Erica" wrote:

Hi, I would like a macro that from one column cuts and pasts from every 2nd
row into the next (2nd) column (one row up) and that for every 3rd row cuts
and past that value into the 3rd column (also one row up). I have recorded
the macro but the cell values are fixed. Thanks!

Erica