@vbfbryce: I wouldn't recommend that method
1) Avoid words like ActiveCell, Selection. Directly perform the action that you want to do.
2) Avoid words like .Select. They are a major cause of errors and also slow down your code.
3) Avoid Hard-coded values like "65536". What if the user is using Excel 2007/2010/2011 and has data up till 70k rows?
@steveb1471: Welcome to the forums
I wouldn't recommend xlDown as it will give you undesired results if your data in Col A will have blank cells in between. See this code. I have commented it so you shouldn't have any problem understanding it. Still if you do then do not hesitate to ask
Dim wsI As Worksheet, wsO As Worksheet
Dim LastRow As Long
Set wsI = Sheets("Sheet1") '<~~ Input Sheet
Set wsO = Sheets("Sheet2") '<~~ Output Sheet
'~~> Get the next available row in Sheet2
LastRow = wsO.Range("A" & Rows.Count).End(xlUp).Row + 1
'~~> Copy row 2 from sheet1 to next available row in Sheet2