dynamic formula with VBA

Hi all,

How can I write below formula to make it dynamic when inserting across the array?

    With ThisWorkbook.Sheets("GFE+").Range("E1:R250")
        .Formula = "=IF($B1="""","""",INDEX(GFE_Archived_Data,$B1,COLUMN(D:D)))"
    End With

e.g. formula in cell E1 should look like this:

=IF($B1="","",INDEX(GFE_Archived_Data,$B1,COLUMN(D:D)))

e.g. formula in F10:

=IF($B10="","",INDEX(GFE_Archived_Data,$B10,COLUMN(E:E)))

etc...