VBA Beginner Question

[BradL11]

Hi all - I imagine this is very elementary but I can't seem to get it right. I'm very experienced with Excel but very new to using VBA. Appreciate all help: I have a table called Table1. I would like to copy from another worksheet on the row below the final row of the table. The macro recorder uses a static cell address that I would like to replace with a formula. Here is what I tried:

  Selection.Copy    Sheets("TS").Select
    Range("B4").Select
    Selection.End(xlDown).Activate
    Range(ActiveCell.Offset(-1, 0)).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Selection.End(xlDown).Select

Thank you in advance for the help!

 

[JLGWhiz]

It looks likethis is what you want


See if this will work for you.

Selection.Copy    
Sheets("TS").Range("B4").End(xlDown).Offset(1).PasteSpecial Paste:=xlPasteValues

Your offset is going up a row. If you meant for it to go down one row then delete the minus sign. Never mind, I changed it because you said you wanted to pasete it below the last row of the table.

 

[BradL11]

Thank you, this worked perfectly! I may try to add a check at the beginning to delete today's data before running the procedure. But this is enough progress for one day! My first macro!

 

[JLGWhiz]

Thank you, this worked perfectly! I may try to add a check at the beginning to delete today's data before running the procedure. But this is enough progress for one day! My first macro!

You're welcome,
regards, JLG