Hi p45cal it's working perfectly Thank you so much

here i want some small change in this code again in my sheet i have heading in Column B with (Customer Mobile Number)

in my sheet i have 10 digit mobile numbers data start from Column B2 to entire B Range & here when i run this code it's deleting all text or any characters in Column B Range & Leaving only 10 digit Mobile Numbers it's done perfectly

here problem is it's deleting heading also of Customer Mobile Number kindly please change this code to avoid heading when i run this vba