Entering dates into two cells and then receiving a corresponding range to be formatted

Question

I am new to VBA.  I am trying to set up a reservation system using Excel.  The rows are the different rooms and the columns are the dates.  The tutorial that I am using to set up this system didn't go far enough for my liking.  Using
the current code it will find use the "start date" from the data entry cell and show the name in a calendar type data range.  What I need to add is an "end date" which will then show all of the dates for that booking.  I'm not
sure how to put that into the code that the tutorial already had.  Here is that code.  Any help would be greatly appreciated.
sincerely,
Andy
VBA Code:
Sub Bookings()
    Dim Rm As Range, Dt As Range, Myrng As Range, Sites As Range
    Dim endCol As Range, StCol As Range, StRow As Range, endRow As Range
    Dim Codei As Range, Col As Range
    Dim Dws As Worksheet, Cws As Worksheet
    Dim x As Integer
    Dim LastRow As Long
    Dim aCell As Range, bCell As Range, dCell As Range
    Set Cws = Sheet1
    Set Dws = Sheet2
    Set StCol = Cws.Range("I5")
    Set endCol = Cws.Range("K5")
    Set StRow = Cws.Range("M5")
    Set endRow = Cws.Range("O5")
    LastRow = Dws.Range("C" & Rows.Count).End(xlUp).Row
    Set Myrng = Dws.Range("C7:C" & LastRow)   'data sheet columns
    Cws.Range("G12:AH31").ClearContents
    Cws.Range("G12:AH31").Interior.ColorIndex = xlNone
        For x = StRow To endRow
        Set Sites = Cws.Cells(x, 6)
                For Each dCell In Cws.Range(Cells(x, StCol), Cells(x, endCol))
            If Not dCell Is Nothing Then
                Set Dt = Cells(11, dCell.Column)
                                Set aCell = Myrng.Find(What:=Sites, LookIn:=xlValues, _
                                       LookAt:=xlWhole, SearchOrder:=xlByRows,
SearchDirection:=xlNext, _
                                       MatchCase:=False, SearchFormat:=False)
                If Not aCell Is Nothing Then
                    Set bCell = aCell
                                        Do
                        Set aCell = Myrng.FindNext(After:=aCell)
                        If aCell.Offset(0, 1).Value = Dt.Value Then
                            Set Codei = aCell.Cells(1, 4)
                            Set Col = aCell.Cells(1, 3)
                            dCell.Value = Codei
                            Select Case Col
                                Case Cws.Range("AP9").Value
                                    dCell.Interior.ColorIndex = 27
                                Case Cws.Range("AP10").Value
                                    dCell.Interior.ColorIndex = 24
                                Case Cws.Range("AP11").Value
                                    dCell.Interior.ColorIndex = 4
                                Case Cws.Range("AP12").Value
                                    dCell.Interior.ColorIndex = 38
                            End Select
                        End If
                        If Not aCell Is Nothing Then
                            If aCell.Address = bCell.Address Then Exit Do
                        Else
                            Exit Do
                        End If
                    Loop
                End If
            End If
        Next dCell
    Next
    On Error GoTo 0
End Sub

Answer 1

Not sure how you derive Actual Cost numbers, etc. but you can use the INDEX MATCH combination to solve a problem like this.
INDEX looks up a value from a range given a row number and column number.
MATCH can get the row number and column number you need.
Putting it all together here:
The formula in G2 of 'Table 2':
  =INDEX(Table A::$A:$G,MATCH(A2,Table A::$A,0),MATCH(G2,Table A::$1:$1,0)+2)
This looks more complicated than it is. Breaking it down:
   =MATCH(A2,Table A::$A,0) simply tells Numbers to take the value in A2 and find out where it occurs in Column A of 'Table A'.
   =MATCH(G2,Table A::$1:$1,0)+2 tells Numbers to take the value in G2 and find out where it occurs in Row 1 of 'Table A'.  Then it adds 2 because the way you have the table set up you need to shift over two columns to get the actual cost after the 'Retro Deal'.
  =INDEX(Table A::$A:$G, <first MATCH expression>,<second MATCH expression>)  looks up the results in the whole of Table A (here columns A through G).
SG