Dim X As Long, R As Long, Data As Variant

  Data = Range("A1", Cells(Rows.Count, "A").End(xlUp)) 
 
  For R = 1 To UBound(Data)
 
    For X = 1 To Len(Data(R, 1))
      If Mid(Data(R, 1), X, 1) Like "[0-9]" Then Mid(Data(R, 1), X) = " "
    Next
    
    Data(R, 1) = Replace(Data(R, 1), " ", "")
    
  Next
 
  Range("B1").Resize(UBound(Data)) = Data