Purtroppo non mi e' molto chiaro ancora ora....
Punto primo perché il codice e' molto incasinato e non si capisce cosa tu voglia fare cerchiamo di procedere per punti come ho già scritto mantenendo una logica fisica, mi dilungo un po nella spiegazione per darti qualche concetto di programmazione.
Per prima cosa crea un nuovo Modulo dove andremmo a scrivere il codice, pulito, che ci serve (tasto destro sulla cartella moduli -> Inserisci -> Modulo
Di nuovo, per una questione di pulizia del codice rinomina questo Modulo in "Main" ed elimina invece tutti gli altri moduli vuoti, altrimenti ogni volta c'e' da impazzire per trovare le funzioni.
Main sta per funzione principale.
Dentro Main creiamo appunto la funzione da cui tutto avrà inizio e dichiariamo alcune costanti che ci serviranno come:
Il nome del foglio dove e' presente la tabella standard
il range dove e' presente la tabella standard
la prima cella in cui andremmo ad inserire la tabella standard
la larghezza della tabella standard
e la lunghezza della tabella standard
Const nomeFoglioTabStandard = "Ridenominatore"
Const addressTabStandard As String = "C24:H36"
Const firstElencoCell = "C55"
Const larghezzaTabStandard = 6
Const lunghezzaTabStandard = 13
Public Sub Start()
End Sub
Ora qui andiamo a scrivere cosa vogliamo fare, penso che la prima cosa che tu debba fare da quanto scritto sia quello di creare lo spazio per la tabella standard nell'elenco, poi copiare la tabella standard nell'elenco, benissimo allora diciamoglielo chiaro
e tondo dentro alla Sub start scrivi:
Public Sub Start()
CreaSpazioPerNuovaTabella
CopiaTabellaStandardInElenco
End Sub
Le funzioni CreaSpazioPerNuovaTabella e CopiaTabellaStandardInElenco ancora non esistono quindi andiamo quindi a crearle, potremmo in realtà scrivere prima tutte le altre operazioni da fare, ma ancora non le ho capite quindi facciamo questo passaggio, questa
e' la funzione che sposta le righe giù di 13, per farlo, partendo dalla prima cella utile (che e' C55) utilizza l'offset della lunghezza e della larghezza della tabella che andremmo a inserire e sposta tutto in giu di tante righe quante dichiarate in cima,
in questo caso sono 13 per 6, bisogna mettere -1 perche l'offset parte sempre da 0
Sub CreaSpazioPerNuovaTabella()
'Troviamo il range da spostare aggiungendo alla cella iniziale la larghezza e la lunghezza (-1 perche parte da 0)
Set rngDaSpostare = Sheets(nomeFoglioTabStandard).Range(Range(firstElencoCell), Range(firstElencoCell).Offset(lunghezzaTabStandard - 1, larghezzaTabStandard - 1))
'Crea lo spazio
rngDaSpostare.Insert Shift:=xlDown
End Sub
Mi spiego meglio, se dopo fatto set rngDaSpostare scrivi "rngDaSpostare.Select" vedrai che ti verra selezionato uno spazio pari a 6x13 celle che sono quelle che poi vengono sposate in giu.
Ora la prossima operazione e' quella di copiare la tabella standard all'inizio dell'elenco (C55)
Sub CopiaTabellaStandardInElenco()
Dim rngTabStandard As Range
'Dichiariamo il range della tabella standard
Set rngTabStandard = Sheets(nomeFoglioTabStandard).Range(addressTabStandard)
'Copia la tabella
rngTabStandard.Copy
'Incolla la tabella nello spazio appena creato
Range(firstElencoCell).PasteSpecial xlPasteAll
End Sub
Come vedi in alto ci sono le dichiarazioni dei range, facilmente accessibili e modificabili se in futuro cambi qualcosa e piu le cose vengono semplificate, piu velocemente saranno modificabili e il lavoro sara piu facile da eseguire una volta creata una buona
base.
Se e' quello il tuo scopo ora hai la funzione per farlo, solo a questo punto, se tutto funziona, fai la prossima mossa (che pero purtroppo non ho capito quale sia) seguendo la stessa procedura, cosa vorresti fare una volta creata la nuova tabella?
![](data:image/svg+xml, %3Csvg xmlns='http://www.w3.org/2000/svg' height='64' class='font-weight-bold' style='font: 600 30.11764705882353px "SegoeUI", Arial' width='64'%3E%3Ccircle fill='hsl(128, 8%, 22%)' cx='32' cy='32' r='32' /%3E%3Ctext x='50%25' y='55%25' dominant-baseline='middle' text-anchor='middle' fill='%23FFF' %3EA%3C/text%3E%3C/svg%3E)
