After Intersect(Columns(1).SpecialCells(2).Areas(1).EntireRow, Columns(1).Resize(, myCol).EntireColumn).Rows.Count
I get Error 1004 No cells were found.
In this code
Dim myCol As Long
myCol = Rows(1).Find("Games").Column
Application.DisplayAlerts = False
With Intersect(Columns(1).SpecialCells(2).Areas(1).EntireRow, Columns(1).Resize(, myCol).EntireColumn)
.Offset(-1).Resize(.Rows.Count + 1).Copy .Offset(.Rows.Count - 11)...