Boa tarde!!

Tente

Sub AleVBA_11991()
    [A1].Formula = "=CONCATENATE(B3,"""",C3,"""",E3,"""",F3)"
End Sub

Supondo que as formulas fiquem em D21 em diante
Range("D21").FormulaLocal = "=CONCATENAR(B3;"" "";C3;"" "";E3;"" "";F3)"
Range("D22").Formula = "=CONCATENATE(B3,"" "", C3,"" "",E3,"" "",F3)"
Range("D23").FormulaR1C1 = "=CONCATENATE(R[-19]C[-2],"" "", R[-19]C[-1],"" "",R[-19]C[1],"" "",R[-19]C[2])"

Boa tarde!!

Tente

Sub AleVBA_11991()
    [A1].Formula = "=CONCATENATE(B3,"""",C3,"""",E3,"""",F3)"
End Sub

Como poderia fazer assim

ActiveCell.Offset(0, 5) = como ficaria a formula aqui?

Boa tarde!!

Tente assim.

Sub AleVBA_11991V2()
    ActiveCell.Offset(0, 5) = "=CONCATENATE(B3,"""",C3,"""",E3,"""",F3)"
End Sub