Crare elenco ripeilogativo e duplicare fogli

Salve a tutti
Dopo aver inserito i dati in una scheda, ho l'esigenza di riportare alcuni di questi dati in un foglio di riepilogo.
E fin qui pare ci sia riuscito.
Successivamente devo duplicare la scheda originale, inserire nuovi dati e ripetere l'operazione nel foglio di riepilogo.
Alla fine dovrei visualizzare tutte le schede, denominate in modo consecutivo, e tutti i dati nel riepilogo.
E qui mi perdo!
Posso avere il vostro aiuto?
Grazie anticipatamente.
Allego il modulo che mi consente di inserire i dati nel riepilogo, ma mi segnala errore con le ultime due righe di codice.


Sub RIEPILOGO()
'
' RIEPILOGO Macro
'
' Scelta rapida da tastiera: CTRL+MAIUSC+R
'
Sheets("RIEPILOGO").Select
Rows("5:5").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Rows("5:6").Select
Selection.RowHeight = 15
Sheets("19_01").Select
Range("H2:I2").Select
Selection.Copy
Sheets("RIEPILOGO").Select
Range("B5").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Selection.NumberFormat = "[$-it-IT]d-mmm-yy;@"
Sheets("19_01").Select
Range("E4").Select
Selection.Copy
Sheets("RIEPILOGO").Select
Range("C5").Select
ActiveSheet.Paste
Application.CutCopyMode = False
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = True
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Sheets("19_01").Select
Range("F19").Select
Selection.Copy
Sheets("RIEPILOGO").Select
Range("D5").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Selection.NumberFormat = "h:mm;@"
Sheets("19_01").Select
Range("H19").Select
Selection.Copy
Sheets("RIEPILOGO").Select
Range("E5").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Sheets("19_01").Select
Range("I22").Select
Selection.Copy
Sheets("RIEPILOGO").Select
Range("G5").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Selection.NumberFormat = "_($* #,##0.00_);_($* (#,##0.00);_($* ""-""??_);_(@_)"
Sheets("19_01").Select
Range("F17").Select
Selection.Copy
Sheets("RIEPILOGO").Select
Range("F5").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Selection.NumberFormat = "0.00"
Rows("6:6").Select
Selection.Delete Shift:=xlUp
Range("A5").Select
ActiveCell.FormulaR1C1 = "=R[1]C+1"
Range("A5").Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = True
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Sheets("19_01").Select
ActiveSheet.Copy After:=Sheets(Sheets.Count)


End Sub

Ciao una macro non risolve inserisci un file d'esempio dei dati e come vuoi che diventino, togli dati sensibili.

Ciao By Sal

Scusami per errore ho caricato due volte il file