My macros need some tweaking right now.....


Sub Macro1()

Application.DisplayAlerts = False


Do
ActiveWindow.ActivateNext
curFile = ActiveWorkbook.Name

If ActiveWorkbook.Name = "Analysis ALL summary.xlsm" Then
Cells(1, 1).Select
Application.DisplayAlerts = True
Exit Sub
End If

Range("J2:AB8").Select
Selection.Copy

Windows("Analysis ALL summary.xlsm").Activate
Cells(1, 1).Select
nrows = Cells.CurrentRegion.Rows.Count
Cells(nrows + 1, 1).Select

Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False

Workbooks(curFile).Close False

Loop



End Sub