Какова цель написания аналога функции ИНДЕКС?  
Функции ИНДЕКС, ПОИСКПОЗ и многие другие доступны в VBA:  
 
Sub Макрос7()  
   i = Application.Match(Cells(23, 1), Range("A2:A20"), 0)  
   j = Application.Match(Cells(23, 2), Range("B1:G1"), 0)  
   Cells(24, 1).Value = Application.Index(Range("B2:G20"), i, j)  
End Sub

Попробовал с "интерсект"  
Учитывает вариант, если даты будут повторяться.  
 
Sub test()  
Dim Col As Integer, Dt As Date, Val As Range  
   Col = Cells(23, 2).Value  
   Dt = Cells(23, 1).Value  
   For Each Val In Range("a2:a20").Cells  
       If Val.Value = Dt Then  
           MsgBox Intersect(Rows(Val.Row), Columns(Col + 1)).Value  
       End If  
   Next  
End Sub