Copy/Paste on the last active row of particular sheet

[CALEB23]

Hello All.

I'm creating a macro wherein data captured from SAP scripting will automatically pasted on another sheet of its last row i.e Range "A", what will be the starting script for this?

Here is my sample script.

I really appreciate any help you can provide.

 

[Kaper]

do you really want to paste in last row or in first empty row? See comment to first line below

instead of last 2 lines of your code use:

dim lastrow as long
lastrow = Range("A"&rows.count).end(xlup).row+1 'if really overwriting last row then delete +1
Range("A"&lastrow).PasteSpecial ....

first few could be also shortened, but I don't want to retype code from your screenshot and these lines will work in the form they are now. Could be just more elegant.

 

[CALEB23]

do you really want to paste in last row or in first empty row? See comment to first line below

instead of last 2 lines of your code use:

dim lastrow as long
lastrow = Range("A"&rows.count).end(xlup).row+1 'if really overwriting last row then delete +1
Range("A"&lastrow).PasteSpecial ....

first few could be also shortened, but I don't want to retype code from your screenshot and these lines will work in the form they are now. Could be just more elegant.

Great, it works! Thanks, Kaper for your help, I appreciate it.