VB Code:
Dim INTNEXT As Integer, INTMAX As Integer
INTMAX = Sheets.Count
For INTNEXT = 4 To INTMAX
Sheets(INTNEXT).Select
Range("A3").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
' SET CELL BACK TO HOME
Range("A1").Select
' SELECT THE EQUIPMENT SHEET
Sheets("ALLEQUIPMENT").Select
Range("A2").Select
If Range("A2") <> "" Then
' DO THE END DOWN STUFF
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Activate
End If
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
' LOOP TO THE NEXT SHEET
Next
' END UP ON EQUIPMENT SHEET
Sheets("ALLEQUIPMENT").Select
Range("A2").Select