Need help to transfer values with currency cells

[Tirrazo]

I got this formula and it does everything I need it to, except bringing with it the format of the cell it is copying from to the target cell.

I need the formula to also convert the target cell with the cell format (in this case currency) it gets from the first cell.
The question is regarding only the first formula, not the one in the bottom.

Also asked here Need help to transfer values with currency cells

Option Explicit

Sub sMoveValues()

Dim i As Long

Application.ScreenUpdating = False
With Sheets("Testark")
    '18,22
    For i = 1 To 12
        .Cells(18, 10 * (i - 1) + 9).Resize(22, 1).Value = _
            .Cells(18, 10 * (i - 1) + 10).Resize(22, 1).Value
    Next
    '58,43
    For i = 1 To 12
        .Cells(58, 10 * (i - 1) + 9).Resize(43, 1).Value = _
            .Cells(58, 10 * (i - 1) + 10).Resize(43, 1).Value
    Next
    '114, 211
    For i = 1 To 12
        .Cells(114, 10 * (i - 1) + 9).Resize(211, 1).Value = _
            .Cells(114, 10 * (i - 1) + 10).Resize(211, 1).Value
    Next
End With
Application.ScreenUpdating = True

End Sub

Sub sMoveValues_Original()

Dim i As Long

Application.ScreenUpdating = False
With Sheets("Ark1")
    For i = 1 To 36
        .Cells(2, 5 * (i - 1) + 2).Resize(42, 1).Value = _
            .Cells(2, 5 * (i - 1) + 3).Resize(42, 1).Value
    Next
End With
Application.ScreenUpdating = True

End Sub

 

[Tirrazo]

Ark 27.02.23.xlsm
	C	D	E	F	G	H	I	J	K	L	M	N	O	P	Q	R	S	T	U	V	W	X	Y	Z
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18							1	1
19							1	1
20							1	1
21							1	1
22							1	1
23							1	1
24							1	1
25							1	1
26							1	1
27							1	1
28							1	1
29							1	1
30							1	1
31							1	1
32							1	1
33							1	1
34							1	1
35							1	1
36							1	1
37							1	1
38							1	1
39							1	1
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
Ark

Cells with Conditional Formatting
Cell	Condition		Cell Format	Stop If True
Y114:Y288,AI114:AI288,AS114:AS288,BC114:BC288,BM114:BM288,BW114:BW288,CG114:CG288,CQ114:CQ288,DA114:DA288,DK114:DK288,DU114:DU288,O114:O288,Y290:Y324,AI290:AI324,AS290:AS324,BC290:BC324,BM290:BM324,BW290:BW324,CG290:CG324,CQ290:CQ324,DA290:DA324,DK290:DK324	Cell Value	>0	text	NO