Tidstagning til løb

Hej Eksperter.

Jeg er ved at arrangere et løb i en lille by og vil i den forbindelse bruge Excel til at holde styr på tiden.

Jeg har fundet en makro i et andet spørgsmål her inde: http://www.eksperten.dk/spm/437527#reply_7376225

Option Explicit

Sub TagTid()
Dim rCell As Range
Dim bFound As Boolean
Dim iRowNo As Integer
Dim iRytNo As Integer

    iRytNo = InputBox("Angiv rytter nr. ")
 
    For Each rCell In Range("A6:A25")
        If rCell.Value = "" Then Exit For
        If rCell.Value = iRytNo Then
            bFound = True
            iRowNo = rCell.Row
            Exit For
        End If
    Next rCell
 
    If bFound = True Then
        Range(Cells(iRowNo, 1), Cells(iRowNo, 1)).Select
        ActiveCell.End(xlToRight).Offset(0, 1).Select
        ActiveCell.Value = Format(Now, "HH:MM:SS")
    End If
End Sub

Det skal lige nævnes at jeg ingen forstand har på at programmere, men bare har hugget makroen :-)
Men den passer lige til det jeg skal lave, på nær en ting.

Der bliver tre ruter man kan løbe og i mit ark ville jeg gerne have de tre ruter med folks navne og nummer stående ved siden af hinanden.
Men så kan jeg ikke få makroen til at fungere.

For i denne linie:

For Each rCell In Range("A6:A25")

Angives det hvor løbernes start nummer skal stå. Jeg kan godt finde ud af at flytter den "Range" til et andet sted feks. C6:C50, men hvis jeg nu gerne vil have makroen til at "se" i flere forskellige rækker feks. C6:C50, D6:D50 og G6:G50, hvordan skal det så skrives i makroen?

Håber det er bare lidt forståeligt hvad jeg spørger om, ellers uddyber jeg gerne :-)

Allan