=ЛЕВСИМВ(A1;1)&"+"&ПРАВСИМВ(A1;2)

Sub Вставить_видимое()
    Dim arr(), lr As Long, i As Long
    Application.ScreenUpdating = False
    Columns("A").AutoFit
    Columns("A").ColumnWidth = Columns("A").ColumnWidth + 5
    lr = Cells(Rows.Count, "A").End(xlUp).Row
    ReDim arr(1 To lr, 1 To 1)
    For i = 1 To lr
        arr(i, 1) = Cells(i, "A").Text
    Next
    Columns("A").NumberFormat = "General"
    Range("A1:A" & lr).Value = arr()
    Application.ScreenUpdating = True
End Sub