>>481
10年位前に作った同じフォルダ内のエクセルブックの一番左側のシートを結合してシート名をファイル名の頭4文字にするコードです
元のシートをそのまま残せば、結合しても問題無いのでは？

Private Sub CommandButton1_Click()
Dim fn As String
Dim wk As Workbook
Dim wh As Worksheet

fn = Dir(ThisWorkbook.Path & "\*.xls", vbNormal)

Do While fn <> ""
If fn <> ThisWorkbook.Name Then
Set wk = Workbooks.Open(ThisWorkbook.Path & "\" & fn)
Set wh = wk.Sheets(1)
wh.Name = Left(fn, 4)
Call wh.Copy(, ThisWorkbook.Sheets(1))
Call wk.Close(False)
End If
fn = Dir()
Loop

End Sub