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