How to Add digit or replace last digit in string based on criteria

How to add digit or replace last digit in string based on criteria

Requirement:

The user is looking for a macro to add a number "1" to a string in column A if there are currently only 8 digits in the cell. If there are nine digits in the cell, I need to replace the last one with a "1". The user has attached an example workbook with desired results - please refer to the link below:

https://www.ozgrid.com/forum/forum/help-forums/excel-vba-macros/1195006-add-digit-or-replace-last-digit-in-string-based-on-criteria

Solution:

Code:

Sub jlsprink()
    Application.ScreenUpdating = False
    Dim LastRow As Long
    LastRow = Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
    Dim rng As Range
    For Each rng In Range("A2:A" & LastRow)
        If Len(rng) = 9 Then
            rng = Left(rng, Len(rng) - 1) & 1
        ElseIf Len(rng) = 8 Then
            rng = rng & 1
        End If
    Next rng
    Application.ScreenUpdating = True
End Sub

Obtained from the OzGrid Help Forum.

Solution provided by Mumps.