Fill range across and down

[tone640]

The below does not work because I am trying to fill across and down (E2:J103) in one step.

Sub Macro1()

    Range("E2").FormulaR1C1 = "=IF(OR(RC3="""",RC3=""Finish:""),"""",VLOOKUP(RC3,desc2,COLUMN(RC[-3]),FALSE))"
    
    Range("E2").AutoFill Destination:=Range("E2:J103"), Type:=xlFillDefault

End Sub

Is there another way to achieve the same result as below but in one step:

Sub Macro1()

    Range("E2").FormulaR1C1 = "=IF(OR(RC3="""",RC3=""Finish:""),"""",VLOOKUP(RC3,desc2,COLUMN(RC[-3]),FALSE))"
    
    Range("E2").AutoFill Destination:=Range("E2:e103"), Type:=xlFillDefault
    Range("E2:E103").AutoFill Destination:=Range("E2:J103"), Type:=xlFillDefault
End Sub

Thanks in advance.