Sub Macro3()
ActiveCell.EntireRow.Copy _
Sheets("POrder").Cells(Rows.Count, 1).End(xlUp)(2).EntireRow
End Sub

Will copy the entire row of the activecell to the bottom of sheet POrder....

HTH,
Bernie
MS Excel MVP


"Nevyn" wrote in message
...
Hi all you brain boxes out there. Need some help please. I have a book with
about 10 different sheets in it. What I am after is a way to copy the
information from a worksheet row to another worksheet without going back and
forward cutting and pasting. The macro i was trying to use was this,
Sub Macro3()
'
' Macro3 Macro
'
' Keyboard Shortcut: Ctrl+a
'
ActiveCell.Rows("1:1").EntireRow.Select
Selection.Copy
Sheets("POrder").Select
ActiveCell.Offset(-4, 0).Rows("1:1").EntireRow.Select
ActiveSheet.Paste
Sheets("Photo Stock ").Select
ActiveCell.Offset(1, 4).Range("A1").Select
End Sub


Can some kind person tell me whatI am doing wrong besides banging my head
off the pc lol.