Moving up one cell

G

Guest

Dear all,

I have the following simple code:-

Range("E20").Select
Selection.Copy

Cells.Find(What:="TECHNOLOGIES", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
Selection.End(xlDown).Select



Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False

Once I have found what I am looking for I would like to move up 1 (one) cell
and then paste the data.

Can you help?
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

conso macro 0
If Cells.Find returns run-time error '91': Object variableor With block variable not set 1
Error for a replace. It replace ALL instead of selected column 2
On error goto specified Line 6
Find and Replace using a Loop won't stop 2
Loop to End 0
Data Cleanse Macro Running Very Slow 0
Any way to pretty this up? 6

Top