I am trying to run a program that allows me to see what rooms in a college are free at a certain time in Microsoft excel.

The problem I am having is after I identify a empty class slot :

* how doIi code it to go back up into the names of all the class rooms (All names are at Row 2)
* and store the value of this.

I have tried offsetting but that wouldn't work for me.

I have added the [Sample Data](https://i.stack.imgur.com/Xcrhc.png) for further clarification 

```
Public Sub EXq3()

Dim rnR1 As Range, roomNum As Integer

Const rooms = 13 ' Counter amount 
Set rgR1 = ActiveCell.Offset(0, 1)
timeSolt = InputBox("What time")  ' asks user what time to enter

Cells.find(What:=timeSolt, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
          xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
         , SearchFormat:=False).Activate    ' search and find code

For counter = 1 To rooms
     If rgR1.Value = "" Then roomNum = rgR1.Offset(Range(2, rgR1.Value)) ' attempt at getting it to go to range 2
     rgR1.Activate
     Set rgR1 = rgR1.Offset(0, 1)
Next counter
MsgBox roomNum

End Sub

```