Untuk masalah ini sepertinya harus pake Macro, karena gak ada filenya saya coba buat contoh sederhananya saja, dengan menggunakan script macro/vba sebagai berikut:
Sub GabungSheet()
Dim BE As Integer
On Error Resume Next
Sheets(1).Select
Worksheets.Add
Sheets(1).Name = "Semua Data"
Sheets(2).Activate
Range("A1").EntireRow.Select
Selection.Copy Destination:=Sheets(1).Range("A1")
For BE = 2 To Sheets.Count
Sheets(BE).Activate
Range("A1").Select
Selection.CurrentRegion.Select
Selection.Offset(1, 0).Resize(Selection.Rows.Count - 1).Select
Selection.Copy Destination:=Sheets(1).Range("A1000").End(xlUp)(2)
Next
With Sheets("Semua Data")
.Columns("A").ColumnWidth = 24.43
.Columns("B").ColumnWidth = 16.57
.Columns("C").ColumnWidth = 8.43
.Columns("D").ColumnWidth = 8.43
.Select
End With
End Sub
Silahkan di kembangkan dan disesuaikan dengan data sheet yg ingin digabungkan.