Try:
Sub ngenova()
Application.ScreenUpdating = False
Dim LastRow As Long, arr As Variant, i As Long, ii As Long, check As Boolean: check = True
LastRow = Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
arr = Range("A2:A" & LastRow).Value
For i = LBound(arr) To UBound(arr)
For ii = 1 To Len(arr(i, 1))
If Mid(arr(i, 1), ii, 1) Like "[A-Z]" Or Mid(arr(i, 1), ii, 1) Like "[a-z]" Then
Range("A" & i + 1) = Mid(arr(i, 1), ii, 9999)
Exit For
Else
check = False
End If
If check = False Then Range("A" & i + 1).ClearContents
Next ii
check = True
Next i
Application.ScreenUpdating = True
End Sub
Bookmarks