Freom the description and your code seems that:
For i = 1 To LR
If .Range("B" & i).Value = "Overall Total:" Then .Range("A" & i & ":W" & i).Copy Destination:=Sheets("Sheet2").Range("A" & Rows.Count).End(xlUp).Offset(1)
Next i
should do.
But on the other hand, you have a slightly different data layout in sheet 1 and sheet 2, so may be:
For i = 1 To LR
If .Range("B" & i).Value = "Overall Total:" Then
.Range("A" & i & ":B" & i).Copy Destination:=Sheets("Sheet2").Range("A" & Rows.Count).End(xlUp).Offset(1)
.Range("B" & i & ":W" & i).Copy Destination:=Sheets("Sheet2").Range("C" & Rows.Count).End(xlUp)
End If
Next i
will suit you better.
Bookmarks