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