Loop Sub until debug

could u please provide the macro which u are using...

I know there are easier ways to create this sub etc but in fairly new to VBA and its a starting point.
Basically it searches for someones name depending on a date and if they have a "h" under their name for that date.
I then copy their name and paste it, but i just need to keep this looping over till there is nothing left to find.

Sub CSROff()
'Identifies date for days of this week
wkDateMon = Worksheets("Cover - This Week").Range("b4")
wkDateTue = Worksheets("Cover - This Week").Range("b5")
wkDateWed = Worksheets("Cover - This Week").Range("b6")
wkDateThu = Worksheets("Cover - This Week").Range("b7")
wkDateFri = Worksheets("Cover - This Week").Range("b8")

    'Activates correct worksheet
Worksheets("HOL_SICK").Activate


            'Counts the number CSR's on the department
    CSRCount = Range("b8", Range("b8").End(xlToRight)).Count
            'Finds the todays date in the list of dates
    MnSchDate = Range(Range("a8"), Range("a8").End(xlDown)).Find(wkDateMon).Select
            'Counts the number of rows the date is from the top
    MnSchCount = Range(ActiveCell, Range("a9")).Count
            'Finds the first "h" in the row for the first person off that day
    MnSchHol = Range(ActiveCell, ActiveCell.Offset(0, 99)).Find("h").Select
            'Changes the "h" in the cell to "X" so its not picked up when searching for the next CSR
    ActiveCell = "X"
            'Uses the MnSchCount above to move to the CSR Name and copies
    MnCSROff = ActiveCell.Offset(-MnSchCount, 0).Select.Copy
       'ActiveCell.Copy
        'Moves to past the last date in the series and pasts the CSR name from above on 1st free cell
    Range("A8").End(xlDown).Offset(1).PasteSpecial

Moderator's note: Please take the time to review our rules. There aren't many, and they are all important. Rule #3 requires code tags. I have added them for you this time because you are a new member. --6StringJazzer

please edit your post and Add Code tag to your code............ please edit it and attached sample workbook