VBA - Is It Possible to Make Code Run Faster With Array - Tell Me How

[Myproblem]

I have vba code down, which works fine, but I need to run more faster.
I know that some of the ways to make code to run faster make some line with Array.
I was wondering how to write line in red te be written in Array.
any idea, how?
thx

Sub CopyWithHlookup()<?xml:namespace prefix = o ns = "urn:schemas-microsoft-comfficeffice" /><o></o>
Application.ScreenUpdating = False<o></o>
Application.Calculation = xlCalculationManual<o></o>
Range("C5") = "=HLookup(B$1, MyData, $AD5, False)"<o></o>
<o> </o>
Range("C5").Copy<o></o>
<o> </o>
Range("C6:C25").PasteSpecial Paste:=xlPasteFormulas<o></o>
<o> </o>
Range("C5:C25").Copy<o></o>
Range("E5:E25").PasteSpecial Paste:=xlPasteFormulas<o></o>
Range("G5:G25").PasteSpecial Paste:=xlPasteFormulas<o></o>
Range("I5:I25").PasteSpecial Paste:=xlPasteFormulas<o></o>
Range("K5:K25").PasteSpecial Paste:=xlPasteFormulas<o></o>
Range("M5:M25").PasteSpecial Paste:=xlPasteFormulas<o></o>
Range("O5:O25").PasteSpecial Paste:=xlPasteFormulas<o></o>
Range("Q5:Q25").PasteSpecial Paste:=xlPasteFormulas<o></o>
Range("S5:S25").PasteSpecial Paste:=xlPasteFormulas<o></o>
Application.Calculation = xlCalculationAutomatic<o></o>
<o> </o>
Range("C5:C25").Copy<o></o>
Range("C5:C25").PasteSpecial Paste:=xlPasteValues<o></o>
<o> </o>
Range("E5:E25").Copy<o></o>
Range("E5:E25").PasteSpecial Paste:=xlPasteValues<o></o>
<o> </o>
Range("G5:G25").Copy<o></o>
Range("G5:G25").PasteSpecial Paste:=xlPasteValues<o></o>
<o> </o>
Range("I5:I25").Copy<o></o>
Range("I5:I25").PasteSpecial Paste:=xlPasteValues<o></o>
<o> </o>
Range("K5:K25").Copy<o></o>
Range("K5:K25").PasteSpecial Paste:=xlPasteValues<o></o>
<o> </o>
Range("M5:M25").Copy<o></o>
Range("M5:M25").PasteSpecial Paste:=xlPasteValues<o></o>
<o> </o>
Range("O5:O25").Copy<o></o>
Range("O5:O25").PasteSpecial Paste:=xlPasteValues<o></o>
<o> </o>
Range("Q5:Q25").Copy<o></o>
Range("Q5:Q25").PasteSpecial Paste:=xlPasteValues<o></o>
<o> </o>
Range("S5:S25").Copy<o></o>
Range("S5:S25").PasteSpecial Paste:=xlPasteValues<o></o>
<o> </o>
<o> </o>
End Sub

 

[jbeaucaire]

I'm not sure the array makes thei faster, but it certainly makes it shorter:

Option Explicit

Sub CopyWithHlookup()
Dim Arr As Variant, a As Variant

Application.ScreenUpdating = False
Arr = Array("C5:C25", "E5:E25", "G5:G25", "I5:I25", "K5:K25", _
            "M5:M25", "O5:O25", "Q5:Q25", "S5:S25")

    For Each a In Arr
        With Range(a)
            .FormulaR1C1 = "=HLookup(R1C[-1], MyData, RC30, False)"
            .Value = .Value
        End With
    Next a
    
Application.ScreenUpdating = True
End Sub

 

[Myproblem]

thx for great job