Another way

Code:
Sub PrepareJ()

    Dim lng As Long
    lng = Cells(Rows.Count, "B").End(xlUp).Row
    Range("J7:J" & lng).Value = Evaluate("=B7:B" & lng & "&E7:E" & lng)
    
End Sub