How to move a selection one cell up using VBA?

Bumba · #1 11-18-2019, 06:33 PM

I'm trying to remove the last cell from a selection dynamically and copy the range.

The worksheet looks like the attached image.

I'm trying to select and copy the range C3:C8 dynamically using VBA.

I've tried the below code:

Code:

Cells.Find(What:="id", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
        xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
        , SearchFormat:=False).Activate
    ActiveCell.Offset(1, 0).Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Offset(-1, 0).Select.Copy Range("E5")

But I'm getting Run-time error '424': Object required. Also if I remove the Copy method the selection is shown to be C2:C8 and not C3:C8.

Help !?

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Find last non empty cell (moving horizontally), then move one cell to the right	klutch	Word VBA	9	07-09-2018 06:16 PM
Move Selection to the next Column on a Page (Not a table)	GuitarForLife	Word VBA	7	02-09-2018 01:59 PM
extract time from a cell and move it to front of cell before text	ewso	Excel	20	03-19-2017 11:34 AM
Move the data at bottom cell to right side of the cell	kcyag91	Excel	1	01-28-2016 12:28 AM
Move data from 1 cell to another cell	Catalin.B	Excel	1	06-25-2011 12:51 PM