Fill Formula up to last empty adjacent Column

Hi All

I know how to fill down to the last non-empty row using a macro like the following:

Sub Fill_Down()
'ENTERS AND FILLSDOWN A FORMULA

    Dim lngLastRow As Long
    lngLastRow = Cells(Rows.Count, "A").End(xlUp).Row
    
    Range("E2:E" & lngLastRow).Formula = "=VLOOKUP(C2,$B$2:$I$1000,2,0)"
    Range("F2:F" & lngLastRow).Formula = "=VLOOKUP(C2,$B$2:$I$1000,3,0)"
   
End Sub

What about when you need to do it the other way round for columns instead or rows, can some-one assist with a macro.

Thanks in advance