For iLoop = Asc("B") To Asc("L") '******* Step through each column (09:00, 10:00, 11:00, etc)*****
StartRow = 3 '******* The start row in the Excel worksheet *******************
EndRow = 20 '******* The end row in the Excel worksheet *********************
Do While StartRow < EndRow + 1
SearchTable Range(Chr(iLoop) & StartRow).Value, StartTime
StartRow = StartRow + 1
Loop
StartTime = DateAdd("h", 1, StartTime)
Next