Align all text in Left and all numeric values in center in a given range using vba.

Hi All,

Hope you all are good.
I need a VBA procedure which will align all the text in Left and all the numeric in center in a given range.

Thanks in advance.

Modify as needed

Code:

---

    ActiveSheet.UsedRange.SpecialCells(2, 2).HorizontalAlignment = xlLeft
    ActiveSheet.UsedRange.SpecialCells(2, 1).HorizontalAlignment = xlCenter

---

https://www.youtube.com/channel/UCnxwq2aGJRbjOo_MO54oaHA

Thanks for your valuable support it is the same what i want.
Thanks Again.