For Each X In Sheets
If X.Name <> "A" Then
X.Select
Range("B1:B" & [B65536].End(xlUp).Row).Copy
Sheets("a").Select
Range("b65536").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteAll, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
End If
Next