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

<tbody>
[TD="class: xl65"][/TD]
[TD="class: xl66"]H[/TD]

[TD="class: xl67"]5[/TD]
[TD="class: xl67, width: 387"]COMMISSION PAYABLE 4***45 our ref 104561283647[/TD]

</tbody>

Expected result

<tbody>
[TD="class: xl65"][/TD]
[TD="class: xl66"]H[/TD]

[TD="class: xl65"]5[/TD]
[TD="class: xl65, width: 387"]COMMISSION PAYABLE our ref[/TD]

</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!!