Tagliare una selezione e spostarla

[papiriof]

Vorrei , con una macro, tagliare una selezione e spostarla con offset(0;13) cioè sempre nella stessa riga ma di 13 colonne
Esempio: seleziono B11:K13 ... dopo di che azionando un bottone o meglio ctrl+una lettera vorrei che la macro tagliasse la precedente selezione e la incollasse in N11:W13
attualmente è così:

Codice: Seleziona tutto

Sub spostaDX()

' spostaDX Macro
    Selection.Cut   
    Range("N11").Select
         
    ActiveSheet.Paste
End Sub

........ ma ovviamente non sapendo come combinarlo con offset qualsiasi selezione che faccio mi va a finire in N11
Mi servirebbe anche il contrario, ma vista la soluzione per destra poi penso di riuscire a fare il contrario da solo...

[Anthony47]

Codice: Seleziona tutto

Sub spostaDX()
' spostaDX Macro
Selection.Cut Destination:=Selection.Offset(0, 13)
'
End Sub


Ciao

[papiriof]

GRAZIE Anthony !!!!