Hi Nick,

One way:

'=============
Private Sub SUBMIT_Click()
Dim srcRng As Range
Dim destRng As Range

Set srcRng = Sheets("LOG TASK").Range("B1:B10")
Set destRng = Sheets("TASKS TO DO"). _
Cells(Rows.Count, "A").End(xlUp)(2)

With srcRng
destRng.Resize(.Rows.Count, .Columns.Count).Value = .Value
End With

End Sub
'<<=============


---
Regards,
Norman


wrote in message
oups.com...
Hi

I am trying to get this macro to paste the data into a blank row on
another sheet any ideas?

Private Sub SUBMIT_Click()
Application.ScreenUpdating = False
Sheets("LOG TASK").Select
Range("b1:b10").Select
Selection.Copy
Sheets("TASKS TO DO").Select
Range("A1").End(xlDown)(2).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone,
SkipBlanks:= _
False, Transpose:=True

End Sub