Do while loop issue

Hi, I am trying to pull out various subtotals from a list terminating with the word "End". My code finds the first instance only although both the counter and the rowpos increment correctly. I am beginning to lose the will to live resolving this
_________________________________________________________________

Sub Activities()
Sheets("Report Paste").Select
Counter = 1
RowPos = 10
Do While Cells(Counter, 1) <> "End"
    If Cells(Counter, 2) = "Total" Then
        Range(Cells(Counter, 1), Cells(Counter, 3)).Select
        Selection.Copy
        Sheets("Weekly Calculator").Select
        Range(Cells(RowPos, 10), Cells(RowPos, 12)).Select
        Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
        RowPos = RowPos + 1
    End If
    
    Counter = Counter + 1
Loop

End Sub

_________________________________________________________________

Any assistance with this would be appreciated.