Делаю так вот

For j = nom_pr To i
fid1 = Me.Spreadsheet1.Worksheets(2).Cells(j, 2).value

If fid1 <> "" Then
If Me.Spreadsheet1.Worksheets(1).Cells(i, 14).Formula = "" Then
Me.Spreadsheet1.Worksheets(1).Cells(i, 14).Formula = "="
Else
Me.Spreadsheet1.Worksheets(1).Cells(i, 14).Formula = Trim(Me.Spreadsheet1.Worksheets(1).Cells(i, 14).Formula & "+" & "R[-" & CStr(i - fid1) & "]C")
End If

Debug.Print fid1, nom_pr, j, i, Me.Spreadsheet1.Worksheets(1).Cells(i, 14).Formula

End If

Выдает так вот подскажите как убрать Черточки эти может я что не дописал

=+_N5+_N10+_N17+N25