If RegExp.test(Cel.Value) Then
            Debug.Print Left$(Cel.Value, Len(Cel.Value) - 1)
        End If

3250A WEST SEM
110055K KEALY RD
804B WEST AMERICA

3250 WEST SEM
110055 KEALY RD
804 WEST AMERICA