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

i have this code:

Please Login or Register  to view this content.

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

How will you know how many cells downward to repeat this?