Amanda,
Welcome to the forum!
This code is without seeing your data. If it does not work, I need to see a sample.
Sub ConsolidateSheets()
Dim ms As Worksheet, ws As Worksheet, i As Long
Application.ScreenUpdating = 0
Application.DisplayAlerts = 0
On Error Resume Next
If Not Evaluate("ISREF('Master List'!A1)") Then
Worksheets.Add(After:=Worksheets(Worksheets.Count)).Name = "Master List"
Else
Sheets("Master List").Range("A2:B" & Rows.Count).ClearContents
End If
Set ms = Sheets("Master List")
For Each ws In ActiveWorkbook.Sheets
With ws
If .Name <> "Master List" Then
.Range("B218:B222").Copy
ms.Range("A" & Rows.Count).End(xlUp).Offset(1).PasteSpecial xlValues
End If
End With
Next
Application.CutCopyMode = 0
Set ms = Nothing
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub
Bookmarks