Vba index/match function not working

[drluke]

I am trying to do a simple INDEX/MATCH using vba, but without success.

I have 2 worksheets (I would attach a sample but I don't have permission)
Sheet"Journal" - holding criteria for my lookup. D7 to end = 1st lookup. E7 to end = 2nd lookup. I7 to end is where the result goes
The values in col D are all the same for values in col E (which varies). Ie. D7=3100 E7=25, D8=3100 E8=81, D9=3100 E9=101 and so on
The range of values in col E covers 18 rows before the value in col D changes, so D19=3200 E19=25 etc
Sheet "Volume Allocation" - holds lookup ranges. Row 8 starting at col E to end is 1st range. Col B9 to end is 2nd range
Indexed range starts at E9 to the lastrow in last column
The latest code I've tried is below, but doesn't work. I have no idea why. Any advice would be appreciated.

With ThisWorkbook.Worksheets("Journal")
        El1 = Range("D8:D" & .Cells(.Rows.Count, "D").End(xlUp).Row)
        El2 = Range("E8:E" & .Cells(.Rows.Count, "E").End(xlUp).Row)
        LCol = ThisWorkbook.Worksheets("Volume Allocation").Cells(8, .Columns.Count).End(xlToLeft).Offset(, -1).Column
        LRow1 = ThisWorkbook.Worksheets("Volume Allocation").Range("B9:B" & .Cells(.Rows.Count, "B").End(xlUp).Row)
        LastRow = Range("I8:I" & .Cells(.Rows.Count, "H").End(xlUp).Row)
        LRow = ThisWorkbook.Worksheets("Volume Allocation").Range("E9:BJ").Find(What:="*", _
                      After:=.Range("E9"), _
                      Lookat:=xlPart, _
                      LookIn:=xlFormulas, _
                      SearchOrder:=xlByRows, _
                      SearchDirection:=xlPrevious, _
                      MatchCase:=False).Row
            For q = 8 To LastRow
                Application.WorksheetFunction.Index(Sheets("Volume Allocation").Range("E9" & LRow),Application.WorksheetFunction.Match _
                (Sheets("Journal").Range("El1"),Sheets("Volume Allocation").Range("LCol"), 0),Application.WorksheetFunction.Match _
                (Sheets("Journal").Range("El2"),Sheets("Volume Allocation").Range("LRow1"), 0))
            Next q
        End With