Sub Macro1()
    
    ' --- imposta come foglio di destinazione il foglio3
    Dim FoglioArchivio As Object
    Set FoglioArchivio = Foglio3
    
    ' --- imposta come intervallo di destinazione la prima riga vuota partendo dall'ultima (A65536)
    ' --- l'intervallo deve essere ridimensionato con lo stesso numero di colonne contenute
    ' --- nell'intervallo di origine, in questo esempio l'intervallo di origine è composto da 4 colonne
    ' --- dato che è rappresentato dalle celle A2:D2 e quindi con Resize l'intervallo di destinazione
    ' --- che è composto da una sola colonna (A) viene ridimensionato a 4
    Dim RangeArchivio As Range
    Set RangeArchivio = FoglioArchivio.Cells(65536, 1).End(xlUp).Offset(1, 0).Resize(1, 8)
    

    ' --- con questa istruzione le formule contenute nel foglio di origine vengono trasformate in
    ' --- valori nel foglio di destinazione
    RangeArchivio.Value = Range("A8:H8").Value
  
     
    
    MsgBox "Dati copiati con successo!!", vbInformation, " Complimenti I!!!!"
    
End Sub