Spostare i numeri in verticale e orizzontale con pulsante macro

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim num(1 To 11)
If Not Intersect(Target, Range("L:L")) Is Nothing Then
  r = Target.Row
  If Cells(Target.Row, 1) <> "" Then
    If r >= 3 And r <= 6 Then
      For i = 1 To 11
        num(i) = Cells(r, i)
      Next i
      For i = 1 To 10
        temp = num(i)
        num(i) = num(i + 1)
        num(i + 1) = temp
        Cells(r, i + 12) = num(i)
      Next i
      Cells(r, 23) = num(11)
    ElseIf r >= 12 And r <= 15 Then
      For i = 1 To 11
        num(i) = Cells(r, i)
      Next i
      For i = 1 To 10
        temp = num(i)
        num(i) = num(i + 1)
        num(i + 1) = temp
        Cells(r, i + 12) = num(i)
      Next i
      Cells(r, 23) = 1 + num(10)
    End If
  End If
End If
End Sub

 
Option Explicit

Sub Analizza()
Application.ScreenUpdating = False
Dim x As Byte
Dim Rcd(11) As Byte

    For x = 1 To 11
        Rcd(x) = Cells(ActiveCell.Row, x)
    Next x
        Cells(ActiveCell.Row, 1) = Rcd(11)
    For x = 2 To 11
        Cells(ActiveCell.Row, x) = Rcd(x - 1)
    Next x
Application.ScreenUpdating = True
End Sub