Public Sub CopyToSummary()
Dim ws As Worksheet, _
LR1 As Long, _
LR2 As Long
Application.ScreenUpdating = False
For Each ws In ActiveWorkbook.Worksheets
If ws.Name <> "Summary" And (Left(ws.Name, 1) = "1" Or Left(ws.Name, 1) = "4" Or Left(ws.Name, 1) = "6" Or Left(ws.Name, 1) = "7")...