Copy cells from sheet 1, paste to next blank row in sheet 2

[jonman03]

Hello all -

Fairly simple request here, but can't get the VBA corret to do it right:

I need to copy values in cells A2:B2 on Sheet 1 and paste values to the next blank row in columns A&B on Sheet 2.

Thank you very much for the help!

 

[jfish1288]

see if this helps

Sub CopyPaste()
Worksheets("Sheet1").Range("A2:B2").Copy Destination:=Worksheets("Sheet2").Cells(Range("A65536").End(xlUp).Row + 1, "A")
End Sub

 

[jonman03]

That is copying the data and pasting it into Sheet2, but in row 12. I only have content in row 1 of Sheet2, so it should be pasting to row 2... Any ideas?

 

[jfish1288]

Are rows 2 through 11 actually empty or blank, as in ""?

 

[jonman03]

jfish:

I think it was pasting +1 row from the currently selected cell. I believe I have it working with the code below:

Sub CopyPaste()
Worksheets("Sheet2").Range("A1").Select
Worksheets("Sheet1").Range("A2:B2").Copy Destination:=Worksheets("Sheet2").Cells(Range("A65536").End(xlUp).Row + 1, "A")
End Sub

Thank you for your help!