I have the following VBA macro so that on a 12 digit number in column A
on my spreadsheets, it keeps only the first 10 digits in the same cell.


What I want to do is change it so that it doesn't assume my data will
always be in column A, but whatever column I have highlighted. So if I
were to highlight all of Column C, it would perform the function all
the way down the column.

Dim rng As Range
For Each rng In Columns(1).SpecialCells(xlConstants, xlNumbers).Areas
rng.TextToColumns _
Destination:=rng, _
DataType:=xlFixedWidth, _
FieldInfo:=Array(Array(0, 1), Array(2, 9))
Next

Also, once in a while, the data I have will only have 11 digits in
which case I would want to remove the last 2 digits and add a zero to
the front of the remaining number keeping it at 10 digits total again.
Is there a way to accomplish this task in the same script?

Example of numbers I will have in the spreadsheet:

127647794701
97124764905

Number one I want to be: 1276477947
Number two I want to be: 0971247649

Thanks for any suggestions.....