Sub Combine()
Sheets(1).Name = "Combine"
Application.ScreenUpdating = False
For i = 1 To Sheets.Count
If Sheets(i).Name <> "Combine" Then
k = Range("A65536").End(xlUp).Row + 1
Sheets(i).UsedRange.Offset(1, 0).Copy Sheets("Combine").Cells(k, 1)
End If
Next
Range("A1").Select
Application.ScreenUpdating = True
MsgBox "Complete!"
End Sub
Sub Combine()
Sheets(1).Name = "Combine"
Application.ScreenUpdating = False
For i = 1 To Sheets.Count
If Sheets(i).Name <> "Combine" Then
k = Range("A65536").End(xlUp).Row + 1
Sheets(i).UsedRange.Offset(1, 0).Copy Sheets("Combine").Cells(k, 1)
End If
Next
Range("A1").Select
Application.ScreenUpdating = True
MsgBox "Complete!"
End Sub