Ottenuto esso.
Cambiare prego la linea
wb1.Sheets (“dati„). Gamma (“B25: R42„). Copiare il _
wb2.Sheets (“fuori orario„). Gamma (“B3: R20„)
A
wb1.Sheets (“dati„). Gamma (“B25: R42„). Copia
wb2.Sheets (“fuori orario„). Gamma (“B3: xlPasteValues di R20„) .PasteSpecial