Copy Paste range to first empty row

[BRISBANEBOB]

I am trying and failing to copy a range (AB34:AT34) from the worksheet (Enrolment Form) where the macro is fired from, select another worksheet (Database1), find the first empty cell in column A, and paste special.

[HTML][/Private Sub CommandButton4_Click()

Range("AB34:AT34").Select
Selection.Copy
Worksheets("Database1").Select
Worksheets("Database1").Range("A1").End(xlDown).Row 1
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Worksheets("Enrolment Form").Select
Range("M25").Select
End Sub
[HTML]

Where am I going wrong in what should be an easy coding?

[bakerman2]

Please Login or Register  to view this content.

or

Please Login or Register  to view this content.

PS Use code tags instead of HTML tags to post code.

[WasWodge]

Double posted somehow... see next post

[WasWodge]

If you do actually only want the values copied then try one of the options below...

Please Login or Register  to view this content.

or

Please Login or Register  to view this content.

I also echo the statement below

PS Use code tags instead of HTML tags to post code.

Edit: apologies I missed the last edit by bakerman2 when writing and posting

[BRISBANEBOB]

That was so depressingly simple, I despair.

Thanks for your assistance.

[bakerman2]

You're welcome and thanks for adding rep points.