Vba code to add to cells into one on different sheet

[Alpacino]

I would like to add text from sheet1, cell B2 with cell A2 then copy the result to sheet2 A2
It is text in both A2 and B2

 

[VoG]

Try like this

With Sheets("Sheet1")
    Sheets("Sheet2").Range("A2").Value = .Range("A2").Value & .Range("B2").Value
End With