Copy, paste append from cell above

  • Thread starter Thread starter Maarkr
  • Start date Start date
M

Maarkr

thought it would be easy but it's not working well... trying to code a small
module to copy the cell above and paste append it to the active cell, but I
need to be able to delete the cell above it, so I can't concatenate it.

ActiveCell.Offset(-1, 0).Select
Selection.Copy
ActiveCell.Offset(1, 0).Select
??
 
This will create a stand-alone, static value in activecell:

ActiveCell.Value = ActiveCell.Value & " " & ActiveCell.Offset(-1,0).Value
 
Back
Top