Sub CopyRange()
Sheets("Sheet1").Range("B14:N33").Copy
Sheets("Data").Range("A1").End(xlDown).Offset(1,0) .PasteSpecial
xlPasteAll
End Sub

HTH

Die_Another_Day

TimN wrote:
I have looked at posts on this subject, but can't seem to get it to work for
me.

At the OK command event, I want to copy cells in the Range B14:N33 in Sheet1
to the next available row in Column A of the "Data" worksheet all within the
same workbook.

How do I get this to work?

Thanks to the Excel experts for your generous help!