Using Hlookup on multiple tables with for..next loop

Hey somebody help me? i need to make a macro which matches information from sheet 1 to a certain month on another sheet. This macro needs a for next loop because there are multiple tables on sheet 1. It can use a fixed amount of steps to find the input of each table.

I attached a small sample with on the first sheet ("Information") three tables. On the second sheet ("Timeline") a made a timeline. I standarized all the dates to the first of the month so they can be matched up using the Hlookup function. The Market value (MV) (third line in each table) should be matched to the corresponding month on the timeline.

If the hlookup formula can not retrieve information for the search value month it should leave the cell empty.

I recorded a macro that performs the hlookup action for the first few months. I need it to use the next input table and the next row on the timeline sheet as output when it loops. The input tables are 4 rows x 38 colums big.

Sub Hlookup()

'
    ActiveCell.FormulaR1C1 = _
        "=IFERROR(HLOOKUP(R[-1]C,Information!R2C2:R5C39,3,0),"""")"
    Range("B4").Select
    Selection.AutoFill Destination:=Range("B4:P4"), Type:=xlFillDefault
    Range("B4:P4").Select
End Sub

Why can't you have one Table?

You will also need to determine which table you are using with this layout.

I would use the .Find vba method,not a worksheet function

I found something using the macro recorder and turning relative references on. This deletes the original tables so i made a backup in advance. It is not looped but i used i shortkey to spam it.

Sub Order2()
'

    ActiveCell.Range("A1:B1").Select
    Selection.Copy
    
    ActiveCell.Offset(-2, 39).Range("A1").Select
    ActiveSheet.Paste
  
    ActiveCell.Offset(0, 2).Range("A1").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "=IFERROR(HLOOKUP(R2C,R[1]C2:R[4]C39,2,0),"""")"
    ActiveCell.Select
    Selection.AutoFill Destination:=ActiveCell.Range("A1:FB1"), Type:= _
        xlFillDefault
    ActiveCell.Range("A1:FB1").Select
   
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
   
    ActiveCell.Offset(1, 0).Rows("1:4").EntireRow.Select
    Application.CutCopyMode = False
    Selection.Delete Shift:=xlUp
    ActiveCell.Offset(2, 1).Range("A1").Select
End Sub

I have to give credit to the following tutorial: http://www.youtube.com/watch?v=S_bzZpTVmLc