''Sub A_Click()
''Sub combine()
'Application.ScreenUpdating = False
'For j = 1 To Sheets.Count
'If Sheets(j).Name <> ActiveSheet.Name Then
'x = Range("A").End(xlUp).Row + 1
'Sheets(j).UsedRange.Copy Cells(x, 1)
'End If
'Next
'Range("3").Select
'Application.ScreenUpdating = True
'End Sub
''End Sub