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.

[Steffen Thomsen]

Hi,

You can use it this way

Sub name

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

end sub

Steffen Thomsen

[tone640]

Doh, of course!

Thanks for your help.