Macro, Find move over a cell paste input with loop

[psrs0810]

I am trying to do a find, move over a cell then paste the needed title. the problem I am having is, what I trying to find is listed 2x's. so finding the first one I am good with. I can't get the macro to find the second one.

Cells.Find(What:="A Total", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
ActiveCell.Offset(0, 1).Select
Selection.Value = "ASSISTANCE"

Cells.Find(What:="B Total", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
ActiveCell.Offset(0, 1).Select
Selection.Value = "BLUE"

So I have A Total, B Total, etc listed 2x's in column B.

I tried added a loop to this, but it is not working.
How do I find "A Total" move over to the cell on the right and put "Assistance", then find the next A Total?

 

[psrs0810]

hiker95 & mikerickson - thanks I will take a look at them.

hiker95 - I am not familiar with using address/ firstaddress. I will have to check that out.


Thanks