Select a cell and run:

Sub rose()
Dim n As Long
n = ActiveCell.Row
Rows(n & ":" & n + 1).Copy Range("A" & n + 2)
End Sub

Two rows will be copied two rows down. If you put the active cell anywhere
in row 7 and run the macro, then rows 7 & 8 will be copied down to rows 9 &
10.
--
Gary''s Student - gsnu200840


"Larry" wrote:

I am trying to copy and move 2 rows and paste. It keeps pasting 2 rows from
place i created the macro, not 2 rows from where I run the macro. I want new
paste to be 2 rows from run position