Copy the Last Row Within a Range and Paste to Last Row in Another Sheet

[rorobear]

Hello Everyone,

If someone could assist with this little macro I’d really appreciate it. I have a workbook with to sheets, InvoiceSheet and DataSheet. My code, when the ADD TO RECORD button is clicked, copys the very last row on the InvoiceSheet to the next empty row in the DataSheet, but that’s not what I want. I want to copy the last in the InvoiceSheet starting from row B18. I’ve attached the Workbook. Any assistance is greatly appreciated.

 Option Explicit
 
Sub RecordofInvoice()
 
Dim lastrowSrc As Long
Dim lastrowDest As Long
 
    'Get last row of data
    lastrowSrc = Sheets("InvoiceSheet").Range("B" & Rows.Count).End(xlUp).Row
   
    'Get first blank row (last row of data +1)
    lastrowDest = Sheets("DataSheet").Range("B" & Rows.Count).End(xlUp).Row + 1
   
    'Copy row
    Sheets("InvoiceSheet").Range("B" & lastrowSrc).EntireRow.Copy Sheets("DataSheet").Range("A" & lastrowDest)
 
End Sub

[rollis13]

Is this what you are looking for ?

Option Explicit
Sub RecordofInvoice()
    Dim lastrowSrc As Long
    Dim lastrowDest As Long
    'Get last row of data
    lastrowSrc = Sheets("InvoiceSheet").Range("B37").End(xlUp).Row '<- changed
    'check if no data
    If lastrowSrc = 18 Then   '<- added this If/Then/End
        MsgBox "Nothing to copy"
        Exit Sub
    End If
    'Get first blank row (last row of data +1)
    lastrowDest = Sheets("DataSheet").Range("B" & Rows.Count).End(xlUp).Row + 1
    'Copy rows
    Sheets("InvoiceSheet").Range("B19:B" & lastrowSrc).EntireRow.Copy Sheets("DataSheet").Range("A" & lastrowDest) '<- changed
End Sub

[rorobear]

YES!!! thank you so very much!!!

[rollis13]

Thanks for the positive feedback, glad having been of some help.