Help with looping through index function to get all matches in vba

i have this code:

Sub Macro1()
    
    Dim ImportDate1, ImportDate2 As String
    
    Range("H453").Select
        
    '=INDEX(Import!$A$2:$O$250000,SMALL(IF(Import!$A:$A=$D$452,ROW($A:$A)),ROW(1:1))-1,15)
    
        Selection.FormulaArray = _
        "=INDEX(Import!R2C1:R250000C15,SMALL(IF(Import!C1=R453C4,ROW(C1)),ROW(R[-452]))-1,15)"
        
        ImportDate1 = Range("H453").Value
        
        Debug.Print ImportDate1
        
        Range("H454").Formula = Range("H453").Formula
        
        Range("H454").Select
        
           Selection.FormulaArray = _
        "=INDEX(Import!R2C1:R250000C15,SMALL(IF(Import!C1=R454C4,ROW(C1)),ROW(R[-452]))-1,15)"
        
        ImportDate2 = Range("H454").Value
        
        Debug.Print ImportDate2
          
    End Sub

It produces two outputs right now. I need to build a loop to increment the Range("H453") value by one to Range("H454") each time around to display all the results of the index function on the spreadsheet. I tried a loop but can't get the range to increment..

Thank you

Moderator's note: Please take the time to review our rules. There aren't many, and they are all important. Rule #3 requires code tags. I have added them for you this time because you are a new member. --6StringJazzer