Delete Last Character In Column

Sub DeleteLastChar()

‘ Delete last character in each cell for the first column

totalrows = ActiveSheet.UsedRange.Rows.Count
For Row = totalrows To 2 Step -1

If Cells(Row, 1).Value <> “” Then
Cells(Row, 1).Value = Left(Cells(Row, 1).Value, Len(Cells(Row, 1).Value) – 1)
End If

Next Row
End Sub