Thanks for the help, but it's not doing exactly what i need. I just need it to move the cursour to the next row so it will copy the designated row.
If it helps this is the macro I have so far...
Sheets("Sheet2").Select
ActiveWindow.SmallScroll Down:=9
Range("B35:I35").Select
Selection.Copy
Sheets("Sheet4").Select
Range("A4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Dim LR As Long
LR = Range("A" & Rows.Count).End(xlUp).Row
Rows(LR).Copy
Rows(LR + 1).Insert
Application.CutCopyMode = False
End Sub