[color=darkblue]Sub[/color] MoveToSheets_v2()
[color=darkblue]Dim[/color] ws [color=darkblue]As[/color] Worksheet
[color=darkblue]Dim[/color] lr [color=darkblue]As[/color] [color=darkblue]Long[/color]
[color=darkblue]With[/color] Sheets("Summary")
lr = .Cells.Find(What:="*", After:=.Cells(1, 1), LookIn:=xlValues, SearchOrder:=xlByRows, SearchDirection:=xlPrevious, SearchFormat:=False).Row
For [color=darkblue]Each[/color] ws [color=darkblue]In[/color] Worksheets
[color=darkblue]If[/color] ws.Name <> .Name [color=darkblue]Then[/color]
ws.UsedRange.Clear
.Rows(1).Resize(lr).Copy Destination:=ws.Range("A1")
[color=darkblue]With[/color] ws.ListObjects(1).Range
.AutoFilter Field:=2, Criteria1:="<>" & ws.Name
.Offset(1).EntireRow.Delete
.AutoFilter
[color=darkblue]End[/color] [color=darkblue]With[/color]
[color=darkblue]End[/color] [color=darkblue]If[/color]
[color=darkblue]Next[/color] ws
[color=darkblue]End[/color] [color=darkblue]With[/color]
[color=darkblue]End[/color] [color=darkblue]Sub[/color]