Cut overlapping ranges and paste (cut) values only

[nivoe]

Hello everyone

Let's say that I have a range full of entries or blanks (numbers, strings, dates, etc.) in "A1:A10".
Now, given some conditions, I have to 'move' that range one row down (or more), such that the data ends up in "A2:A11".

To not mess up my conditional formatting, ONLY the values should be cut/ moved!

I tried

Worksheets(1).Range("A2:A11").Value = Worksheets(1).Range("A1:A10").Value

Problem?
It does move the values, which is nice, but it leaves the ones above untouched. I could fix this with smart indexing, but my code is already pretty complex, so I'd like to avoid any more indexes if possible.

I'd wish for something like this

Worksheets(1).Range("A1:A10").Select
Selection.Cut Destination:=Worksheets(1).Range("A2:A11")

to only cut/ paste values, such as:

Worksheets(1).Range("A1:A10").Cut
Worksheets(1).Range("A2:A11").PasteSpecial xlPasteValues

But, the last code does not work with 'Cut', only with 'Copy' ... this is freaking me out

Help is much appreciated?
Thank you

[jeffreybrown]

Since you are only moving one cell down...

How about...

Sub test()
    With Worksheets(1)
        .Range("A1:A10").Copy
        .Range("A2:A11").PasteSpecial xlPasteValues
        .Range("A1").ClearContents
    End With
End Sub

...where you are simple copying, pasting the values, and then clearing A1

[nivoe]

Thanks, I guess I have no other choice