Conditional Formatting vba

I'll try do (the macro is necessary because users can change or remove formatting):

The first row of a sheet has headings;
Column A (from 2 row and below) text (VerticalAlignment=xlCenter, HorizonalAlignment=xlLeft, text style bold)
Range A2:CV - data (numbers from 0 to 2, manually sets). Need to apply IconSets(xl3Symbols2) to this range. VerticalAlignment=xlCenter, HorizonalAlignment=xlCenter, text style bold)
All range A:CV must be formatted with borders xlContinuous and weight xlHairline

Can any analyse my macro?

vba code

Please Login or Register  to view this content.

тест.xls
File attached, pls help with both vba
second sheet also contains headers, and i thought my macro is ugly, but I can't do anything more (

Dear colleagues if it isn't difficult - look, please, that it is possible to make, I will be very grateful.

Why not just protect the sheet instead ?

In my orignal heawy-coded book there are vba for authorization of users. But administrators have an opportunity to edit all sheets. As they are simple users, it is difficult to resolve an issue differently without vba formatting. They can't remove a sheet, but make actions that formatting usual was removed - can, and it occurs constantly.
And the most sad that they must to edit these sheets.

Firt sheet vba was changed test.xlsx
But 2nd sheet macro still needs correction. In it is required to apply formatting in case of data input in a column A or change of the status in a version column. I dunno how do that right.

One macro lasts.. mb any can help.