Clear numbers and symbols

[Panoos64]

Hi to all of you, kindly require to provide me a VBA code so that to run through col "H" and should clear any numbers or symbols and adjusting the remaining text on left align. An example is below by which i present the original data and expected result. Thank you all in advance

Original data

	H
5	COMMISSION PAYABLE 4***45 our ref 104561283647

<tbody>
</tbody>

Expected result

	H
5	COMMISSION PAYABLE our ref

<tbody>
</tbody>

 

[Rick Rothstein]

Give this macro a try...

Sub LettersOnlyColumnH()
  Dim R As Long, X As Long, Arr As Variant
  Arr = Range("H1", Cells(Rows.Count, "H").End(xlUp))
  For R = 1 To UBound(Arr)
    For X = 1 To Len(Arr(R, 1))
      If Mid(Arr(R, 1), X, 1) Like "[!A-Za-z]" Then Mid(Arr(R, 1), X) = " "
    Next
    Arr(R, 1) = Application.Trim(Arr(R, 1))
  Next
  Range("H1").Resize(UBound(Arr)) = Arr
End Sub

 

[Panoos64]

Is perfect Rick! Thanks once again for kind support. Have a great day!!