Thread: [Solved] How to move a selection one cell up using VBA?
View Single Post
 
Old 11-19-2019, 08:46 AM
Debaser's Avatar
Debaser Debaser is offline Windows 7 64bit Office 2010 32bit
Competent Performer
  
Join Date: Oct 2015
Location: UK
Posts: 221
Debaser will become famous soon enough
Default
Then replace these lines:

Code:
Range(Selection, Selection.End(xlDown)).Select
    Selection.Offset(-1, 0).Select.Copy Range("E5")
with this:

Code:
Range(Selection, Selection.End(xlDown).Offset(-1)).Copy Range("E5")
Reply With Quote