Eu espero que você possa ajudar.

Eu tenho um pedaço de código que atualmente está removendo todo o texto das células na coluna G. O que eu preciso é que esse código, em vez de remover o texto, eu queira que ele remova os números e só quero que eleremova os números no início da string / célula o restante dos dados gostaria de permanecer o mesmo.

Anexei uma figura PIC.1 para entender as apostas.

PIC1

O código que tenho atualmente e espero que possa ser alterado está abaixo e, como sempre, toda e qualquer ajuda émuito apreciado.

CÓDIGO

Sub RemoveNonDigits()
  Dim X As Long, Z As Long, LastRow As Long, CellVal As String
  Const StartRow As Long = 1
  Const DataColumn As String = "G"
  Application.ScreenUpdating = False
  LastRow = Cells(Rows.Count, DataColumn).End(xlUp).Row
  For X = StartRow To LastRow
    CellVal = Cells(X, DataColumn)
    For Z = 1 To Len(CellVal)
      If Mid(CellVal, Z, 1) Like "[!0-9]" Then Mid(CellVal, Z, 1) = " "
    Next
    With Cells(X, DataColumn)
      .NumberFormat = "@"
      .Value = Replace(CellVal, " ", "")
    End With
  Next
  Application.ScreenUpdating = True
End Sub