VBA for Do Until Loop with VLookUp

Hello,

I would like to ask for your help to use the following formula with VBS in the spreadsheet code. For the moment I'm using it with Conditional Formatting on <Sheet1> to strike through the rage cells from G10 below (up to G100) if the value (text) from column G if not present in the spreadsheet named <Resources>

=AND(IFERROR(VLOOKUP(G10,resources!$A:$A,1,0),0)<>G10,IFERROR(VLOOKUP(G10,resources!$C:$C,1,0),0)<>G10,IFERROR(VLOOKUP(G10,resources!$E:$E,1,0),0)<>G10,IFERROR(VLOOKUP(G10,resources!$G:$G,1,0),0)<>G10,IFERROR(VLOOKUP(G10,resources!$I:$I,1,0),0)<>G10)


column A column C column E...

a1 c1 e1
a2 c2 e2
a3 e3
a4



In spreadsheet <Sheet1>


column G

a3
a1
e2
i1 <--- strikethrough because is not founded in spreadsheet <Resources>

My issue is that if I'm updating the spreadsheet <Resources> with file names by adding new columns with file names i have to add the following formula with the new column that contains file names in the spreadsheet <Sheet1> Conditional Formatting.

IFERROR(VLOOKUP(G10,resources!$<new column>:<new column>,1,0),0)<>G10

I would like to have the formula

IFERROR(VLOOKUP(G10,resources!$I:$I,1,0),0)<>G10 repeated until now data is found in 2 consecutive columns.


What i'm trying to do is strike through the text from column G10 and below on spreadsheet <Sheet1> if it's not found in spreadsheet <Resources>. The data on both spreadsheets are updated (on Resources in columns and rows and Sheet 1 from row G10 below only).

Thank you for your time! Kind regards,

Jack