Loop formula to remove last letter of productcode if it is a letter

[Bob Phillips]

[VBA]

Public Sub ProcessData()
Dim Lastrow As Long
Dim i As Long

Application.ScreenUpdating = False

With ActiveSheet

Lastrow = .Cells(.Rows.Count, "a").End(xlUp).Row
For i = 2 To Lastrow

If Not IsNumeric(Right$(.Cells(i, "A").Value2, 1)) Then

.Cells(i, "A").Value2 = Left$(.Cells(i, "A").Value2, Len(.Cells(i, "A").Value2) - 1)
End If
Next i
End With

Application.ScreenUpdating = True
End Sub
[/VBA]