Originariamente inviato da luck
tiè, inserisci un pulsante nel foglio e aggiungi questa macro: è una possibile soluzione:

codice:
Private Sub CommandButton1_Click()


    matrice = Array("D4", "E4", "F4", "G4", "H4", "I4", "J4", "K4", "L4", "M4")
    valore = ActiveSheet.Cells(3, 4)
    
    Range("O4:O12").Select
    Selection.Copy
    Range(matrice(valore - 1)).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    
End Sub
spero faccia al caso tuo
ciao ciao
Ci stavo provando anch'io ma vedo che mi hai anticipato di un pezzo.
Posto comunque la mia soluzione che è praticamente identica alla tua.
Ciao luck.

codice:
Option Base 1

Sub incollaspec()
indice = Array("d", "e", "f", "g", "h", "i", "l", "m")
ActiveSheet.Range("D4:M12").Select
Selection.ClearContents
ActiveSheet.Range("O4:O12").Select
Selection.Copy
copia = ActiveSheet.Range("b3").Value
ActiveSheet.Range(indice(copia) & "4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
End Sub