VBA Cut/Paste

[Pinaceous]

Good Day All,

I'm trying to Cut/Paste:

    Range("AU6:CM36").Select
    Selection.Cut
    Range("B78").Select
    Selection.Paste

But I'm getting an error message:

Also, does anyone know why?

Also, Also, does anyone know how to paste values after a Cut?

Please let me know.

Thank you!
pinaceous

 

[Osvaldo Palmeiro]

Hi.
Try replacing Selection.Paste by ActiveSheet.Paste

Or just

Range("AU6:CM36").Cut Range("B78")

 

[Pinaceous]

Hi.
Try replacing Selection.Paste by ActiveSheet.Paste

Or just

Range("AU6:CM36").Cut Range("B78")

Thank you let me give it a go!

 

[Peter_SSs]

What about just this instead of those 4 lines of code?

Range("AU6:CM36").Cut Range("B78")

Oops, @Osvaldo Palmeiro already suggested that

 

[Alex Blakenburg]

how to paste values after a Cut?

You can't do that one step. The simplest is probably this:

Sub Cut_Paste()
    With Range("AU6:CM36")
        .Copy
        Range("B78").PasteSpecial xlPasteValues
        Range("B78").PasteSpecial xlPasteFormats    ' Cut and paste brings over the formatting
        .Clear                                      ' Use .ClearContents if you want to leave the formatting in the original range
    End With
End Sub

 

[Pinaceous]

Thank you guys!