Ti propongo una macro come base su cui potrai lavorare. Così com'è prevede che la macro la lanci dal file con i fogli da copiare e che il file destinazione si chiami Master.xlsx e che sia già aperto.
Option Explicit
Sub Copia_Celle_Da_Fogli()
Dim x As Long
Dim ur As Long
Dim pr As Long
Application.ScreenUpdating = False
For x = 1 To Sheets.Count
With Sheets(x)
ur = .Range("A" & Rows.Count).End(xlUp).Row
.Range("A2" & ":D" & ur).Copy
End With
With Workbooks("Master.xlsx").Sheets("Foglio1")
pr = .Range("A" & Rows.Count).End(xlUp).Row + 1
.Range("A" & pr).PasteSpecial xlPasteValues
End With
Next x
Application.ScreenUpdating = True
End Sub
______________________________________________________________
C'è chi fa le COSE a CASO e chi fa CASO alle COSE (Ignoto)