Move cells based on cell length *shift cells right) - code required

Hi

I have a database which when I export to excel it doesnt always come out in the same format.

e.g.
AT Business 1 1
AU Business 2 2
AV Business 3 3
AW Business 4 4
AX Business 5 5
AY Business 6 6
AZ Business 7 7
BABusiness 8 8
BBBusiness 9 9

What I would like is a macro that looks at the cell lenth in column A.
If it is 2 or less then do nothing.
But, if it is more than two characters then I need it to put the first two characters in column one and then the remaining contents in column B (apart from the space) and shifting everything else along.

It would then look like this:
AT Business 1 1
AU Business 2 2
AV Business 3 3
AW Business 4 4
AX Business 5 5
AY Business 6 6
AZ Business 7 7
BA Business 8 8
BB Business 9 9

Can anyone help with the code please?