Copy cells to Last Row, Paste to another sheet to Last Row (1rst EMPTY ROW, adding, not replacing)

Copy cells to Last Row, Paste to another sheet to Last Row (FIRST EMPTY ROW, adding, not replacing) Hello friends. Im New in VBA. Could you help me on this? So, i have 5 Cells D8:H8 wi...

excel

DKoontz

Jul 20, 2021

ML_PT

Hi, I use something similar in my day to day work. This should work for your purposes, this functions assuming you have headers on sheet 2.

Sub Transfer()

LastRow = [Sheet2].Cells(Rows.Count, 1).End(xlUp).Row
NextRowExport = LastRow + 1

    [Sheet1].Range("D8:H8").Copy
    [Sheet2].Range("A" & NextRowExport).PasteSpecial xlPasteValues
    
End Sub

ML_PT

Copper Contributor

Jul 20, 2021

Hi DKoontz,

First of all thank you for your help.
I tried your propose but receive an Run-time error 424.
Thanks for you Help

DKoontz

Iron Contributor

Jul 20, 2021

You may have to change the sheet names to match your file. What line is highlighted when the error pops up?

ML_PT
Copper Contributor
Jul 21, 2021
Hi Dkoontz,
Thank you very much my Friend.
Problem Solve
🙂
- DKoontz
  Iron Contributor
  Jul 21, 2021
  Great! Glad that worked.
ML_PT
Copper Contributor
Jul 20, 2021
I already change the sheet names.
Te line that pop ups is this:
LastRow = [REGISTO MORADOR].Cells(Rows.Count, 1).End(xlUp).Row

Forum Discussion

Copy cells to Last Row, Paste to another sheet to Last Row (1rst EMPTY ROW, adding, not replacing)

Resources