удаление переноса строки. В DelChr10RUN поставь столбец

' удаление переноса строки. В DelChr10RUN поставь столбец
Sub DelChr10(colum As String)
For i = 1 To Cells.SpecialCells(xlLastCell).Row
 
 If Right(Range("C" & i), Len(Range("C" & i)) - Len(Range("C" & i)) + 1) = Chr(10) Then
   Range("C" & i) = Left(Range("C" & i), Len(Range("C" & i)) - 1)
End If
Next i
End Sub

Sub DelChr10RUN()
 DelChr10 "C"
End Sub