VBA concatenation cannot concatenate strings

[Paul21]

Hello All,

Cannot find out why this line Ws.Range("I2:I" & LastRow).Formula = "E1&"_"&F2" throws error (Syntax error)?
It works well for variables but does't work with strings
I tried to put single quote and use R1C1 formula.

Sub Concat1()
    Dim LastRow As Long
    Dim Ws As Worksheet

    Set Ws = Sheets("Sheet1")

    LastRow = Ws.Range("A" & Ws.Rows.Count).End(xlUp).Row

    '~~> If it does then
    Ws.Range("I2:I" & LastRow).Formula = "E1&"_"&F2"
End Sub

 

[Fluff]

How about

    Ws.Range("I2:I" & LastRow).Formula = "=E1&""_""&F2"

 

[Paul21]

How about

    Ws.Range("I2:I" & LastRow).Formula = "=E1&""_""&F2"

Works perefectrly, thank you Sir!

 

[Fluff]

You're welcome & thanks for the feedback.