Macro aggiorna estrazione nel file ruota

Questa macro serve ad aggiornare l’estrazione nel file ruota, questo il listato :

Sub Estrazione()
‘
‘ Estrazione Macro aggiorna archivio
‘

Range(“A8527:HT8527”).Select
Selection.Copy

Range(“A8528”).Select
ActiveSheet.Paste

Rows(“2:2”).Select
Range(“L2”).Activate
Selection.Delete Shift:=xlUp

Rows(“8526:8526”).Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

End Sub

Da non dimenticare, se si fa il copia incolla, l’incolonnamento. Ora apriamo il file ruota che abbiamo precedentemente costruito e premiamo contemporaneamente ALT+F11, apparirà la pagina VBA:
Continua...