Sub gsnu()

Set r = ActiveSheet.UsedRange
nlastrow = r.Rows.Count + r.Row - 1

For i = 1 To nlastrow Step 2
Cells(i, 1).EntireRow.Copy Cells(i + 1, 1)
Next

End Sub
--
Gary''s Student


"Jen" wrote:

hi, i am a new learner in microsoft excel macro.

Row Dept Module Headcount access number
1 AT 5 23 5
2
3 BA 2 10 5
4
5 FG 7 12 5


Based on the example above, I need help on how to copy row 1 to 2, row
3 to 4 and row 5 to 6 using "range" command? Thank you.