Cut&Paste last row

[Gregfox]

Hi, I’m trying to cut from a sheet (A1 to B1), and paste it to the last blank row in Excel 2007. The code below that I’m using errors out. Where am I going wrong?
Thank you.

Sub FindLastRow()
Dim LastRow As Long
 
Range("A1:B1").Select
Selection.Copy
 
If WorksheetFunction.CountA(Cells) > 0 Then
 
LastRow = Cells.Find(What:="*", After:=[A1], _
SearchOrder:=xlByRows, _
SearchDirection:=xlPrevious).Row
ActiveCell.Offset(rowOffset:=1, columnOffset:=0).Activate
ActiveSheet.Paste
End If
End Sub

 

[CharlesH]

Hi,

Here is some code that may help. It will copy your cells from sheet1 to sheet2 last row.

Sub FindLastRow()

 
Sheets("Sheet1").Range("A1:B1").Copy Destination:=Sheets("Sheet2").Range("A" & Range("A65536").End(xlUp).Row + 1)

 
End Sub

 

[Gregfox]

Your code was great, and simple. It did the trick.
Thank you.

 

[CharlesH]

Thanks for letting me know.