conditional formatting to be macro on specific rows and colums

[k0st4din]

Hello, everyone,
p45cal, Aussiebear, georgiboy, you guys are amazing.
There are moments when, out of happiness, one does not know what to say. In this case, it is exactly so.
Once again, I am convinced that there are sites and people on them who, with their knowledge, can help and make someone else happy.
Thank you from the bottom of my heart.
If I had to give a reputation from 1-10, I would give a Million.

P.S. - p45cal - if I can ask one last thing.
When the macro does the coloring, those selected cells change a bit for me, almost below the default value.
I mean where there is a value, whatever it is, for example 1782, after coloring (there is formatting in the cells, because they calculate data), then it shows me 1782.25874 - this is just an example.
How do I get this integer back?
I made this macro, but if there is some trick to get the formatting into yours, that would be great.

Sub FORMAT0()

       Application.ScreenUpdating = False
    Sheets(Array("BLAGOEVGRAD TOTAL", "BURGAS TOTAL", "VARNA TOTAL", _
        "VELIKO TYRNOVO TOTAL", "VIDIN TOTAL", "VRACA TOTAL", "GABROVO TOTAL", _
        "DOBRICH TOTAL", "KYRDJALI TOTAL", "KUSTENDIL TOTAL", "PAZARDJIK TOTAL", _
        "PERNIK TOTAL", "PLEVEN TOTAL", "PLOVDIV TOTAL", "RUSE TOTAL", "SILISTRA TOTAL", _
        "SMOLQN TOTAL", "SOFIA TOTAL", "SOFIA OBLAST TOTAL", "STARA ZAGORA TOTAL", _
        "HASKOVO TOTAL", "SHUMEN TOTAL", "QMBOL TOTAL")).Select
    Sheets("BLAGOEVGRAD TOTAL").Activate
    
    Range("BO78,BR78,BU78,BX78,CA78,CD78,CG78,CJ78,CM78,CP78,CS78,CV78").Select
    Range("BX78").Activate
     'or Rows("78:78").Select
    Selection.NumberFormat = "0"
   
    Sheets("BLAGOEVGRAD TOTAL").Select
    Application.ScreenUpdating = True
End Sub