Solved: Help! Next empty cell question

[Pizzafiend]

Why does this code start the paste at r1c22 in the destination sheet?

[VBA]Private Sub cmdTransferEmpNum_Click()
Dim LastRow As Long
LastRow = Range("A65536").End(xlUp).Row
Worksheets("YTD").Range("A8").Copy _
Destination:=Worksheets("Data Gathering II").Cells(LastRow + 1, 1)
End Sub[/VBA]

[Norie]

Which sheet are you trying to get the last/next row for?

Which sheet is active when you run the code?

Since this line doesn't reference any sheet VBA will use whatever sheet is active.
[vba]
LastRow = Range("A65536").End(xlUp).Row
[/vba]

[Pizzafiend]

I am new at VBA so bare with me.


I am looking for the last row in the Data Gathering II sheet.

[austenr]

This worked for me:

[VBA] Private Sub cmdTransferEmpNum_Click()
Dim LastRow As Long
LastRow = Worksheets("Data Gathering II").Range("A65536").End(xlUp).Row
Worksheets("YTD").Range("A8").Copy _
Destination:=Worksheets("Data Gathering II").Cells(LastRow + 1, 1)
End Sub [/VBA]

[Zack Barresse]

[VBA]Private Sub cmdTransferEmpNum_Click()
Dim LastRow As Long
LastRow = Sheets("Data Gathering II").Range("A65536").End(xlUp).Row
Worksheets("YTD").Range("A8").Copy _
Destination:=Worksheets("Data Gathering II").Cells(LastRow + 1, 1)
End Sub[/VBA]

.. should do it.

Edit: Whoops! It's what I get for taking too long to hit the reply button. LOL!

[austenr]

Too funny!!

[Pizzafiend]

Thanks, that did it.