Macro to run on multiple and selected worksheets

[K0st4din]

Hello, everyone,
I made 3 macros by hand with clicks.
I would like to ask if someone can help and make each of the macros separately (individually, I'll make a button) to be able to run in 30 worksheets, eg London, Paris, Germany, etc. to the end.
Because now I do this thing by opening every single worksheet and it takes me an awful lot of time.
I have necessarily left in the macro which cells I marked, because after a while I will have to run the same macro, but in neighboring cells.
Thank you in advance!
Be healthy!

Sub test2BLACK()

Application.ScreenUpdating = True
    Range("O62:Z62").Select
    Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=N62<O62"
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Font
        .Bold = True
        .Italic = True
        .TintAndShade = 0
    End With
    With Selection.FormatConditions(1).Interior
        .Pattern = xlNone
        .TintAndShade = 0
    End With
    Selection.FormatConditions(1).StopIfTrue = False
    Application.ScreenUpdating = False
End Sub

Sub TEST3RED()
Application.ScreenUpdating = True
    Range("P62:Z62").Select
    Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=O62>P62"
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Font
        .Bold = True
        .Italic = True
        .Color = -16776961
        .TintAndShade = 0
    End With
    With Selection.FormatConditions(1).Interior
        .Pattern = xlNone
        .TintAndShade = 0
    End With
    Selection.FormatConditions(1).StopIfTrue = False
    Application.ScreenUpdating = False
End Sub

Sub table()
Application.ScreenUpdating = True
    Range("O3:Z60").Select
    Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
        "=O3=MAX($O3:$Z3)"
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Font
        .Bold = True
        .Italic = True
        .TintAndShade = 0
    End With
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorAccent3
        .TintAndShade = 0.599963377788629
    End With
    Selection.FormatConditions(1).StopIfTrue = False
    Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
        "=LEN(TRIM(O3))=0"
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Interior
        .Pattern = xlNone
        .TintAndShade = 0
    End With
    Selection.FormatConditions(1).StopIfTrue = False
    Application.ScreenUpdating = False
End Sub

 

[K0st4din]

Now when I clicked on just one worksheet it gave me an error in all three macros here:

 

[K0st4din]

Hello
does anyone have any idea how to do this?
After I did it manually and tested the macro, it gave me an error in itself. After that I read and searched on the internet and it struck me that when this conditional formatting was used it was more special. That is, the macro was written in a slightly different way.
I am also attaching an example table, in a finished version, after I have manually set the range and coloring of the necessary cells.

test brt.xlsm
	A	B	C	D	E	F	G	H	I	J	K	L	M	N	O
1
2	2021	1.2022	2.2022	3.2022	4.2022	5.2022	6.2022	7.2022	8.2022	9.2022	10.2022	11.2022	12.2022	2022
3
4		37	43	53	45	50	45	7	43	25	55	35
5		1	15	18	13	10	7	16	12	14	6	13
6		-1		39	19	40	16	34	28	43	29	32
7		42	34	43	48	46	36	32	37	36	39	38
8		14	9	14	8	14	13	11	16	14	10	13
9		184	148	192	185	203	161	164	227	172	187	189
10
11
12		27	23	16	20	18	21	42	21	27	24	26
13			-1						1
14		29	30	40	40	53	56	44	48	67	143	178
15		155	151	210	167	213	168	207	210	52	1	4
16		11	6	12	6	5	21	5	16	30	22	47
17		11	12	15	21	26	17	22	22	16	12	21
18		9	6	4	2	9	5	4	3			-3
19		1	5		2		1	1	1	1	6	9
20		12	14	15	17	17	12	16	17	11	22	14
21							3	5	8	8	7	11
22
23		9	20	17	7	10	9	16	27	22	22	37
24		7	3	2	4	3	7	5	6	6	7
25		20	21	29	22	13	19	25	22	23	20	35
26												3
27		7	5	1	-1	1				1		1
28		15	17	34	19	17	33	30	18	23	31	28
29		66	69	61	59	86	73	70	74	71	71	74
30
31
32
33		1677	1448	1757	1612	1823	1774	1764	1944	1882	2023	1977
34
35
36				1	1	1	2	-1			3	1
37		82	71	76	83	111	69	82	54	72	97	81
38
39
40		28	41	35	50	25	32	29	42	32	45	36
41		33	11	20	12	4	1	13	10	9	15	16
42		5	14	11	12	15	3	12	6	8	5	22
43		33	26	40	47	20	5	4	7	8	8	10
44		20	3	36	77	48	47	65	53	78	76	76
45		58	49	70	50	55	52	53	53	46	54	59
46		1	2	14	12	10	17	1				10
47		194	188	225	232	227	219	205	250	256	267	303
48		6	6	9	4	1		1		4	4	3
49		40	29	37	43	45	34	36	39	36	38	32
50
51		144	126	147	126	136	104	129	108	132	99	116
52		14	17	17	20	18	17	16	16	16	22	10
53
54		55	54	59	60	55	54	40	43	47	38	37
55		207	155	203	201	198	184	198	197	182	193	209
56		18	12	22	18	18	20	21	22	22	25	22
57		19	10	14	16	16	17	14	27	29	44	51
58		7	8	7	3	8	4	9	7	6	8	10
59		41	59	66	70	55	55	61	78	82	90	88
60		7	5	4	7	4	-2	8	4	11	6	7
61
62		3345	2964	3685	3459	3727	3431	3516	3817	3620	3874	3981
63
london

Sheets(Array("LONDON", "PARIS", ECT......)).Select

That's it, I don't know how to add it and if it's possible in principle