Sub Test()

'----> entweder so:

If Range("P3").Value = Range("HF6").Value Then
    
    von = 18                                   ' die Zahl im Start-Range, hier  18 - Range("HF18")
    bis = 162                                  ' die Zahl im   End-Range, hier 162 - Range("HF162")
    Sprung = 4                                 ' der Offset zur nächsten Zeile, hier 4 - Range("HF18").Value = Range("O18").Value
'                                                                                                                                                     |                                        |
'                                                                                                                               Range("HF22").Value = Range("O22").Value

    For Count = von To bis Step Sprung         ' günstig, das die Cells immer 4 Reihen Abstand haben
        Range("HF" + Trim(Str(Count))).Value = _
        Range("O" + Trim(Str(Count))).Value
    Next
End If
Exit Sub


'So hätte dein Code auch etwas übersichtlicher ausgeschaut !

If Range("P3").Value = Range("HF6").Value Then
    Range("HF18").Value = Range("O18").Value
    Range("HF22").Value = Range("O22").Value
    Range("HF26").Value = Range("O26").Value
    Range("HF30").Value = Range("O30").Value
    Range("HF34").Value = Range("O34").Value
    Range("HF38").Value = Range("O38").Value
    Range("HF42").Value = Range("O42").Value
    Range("HF46").Value = Range("O46").Value
    Range("HF50").Value = Range("O50").Value
    Range("HF54").Value = Range("O54").Value
    Range("HF58").Value = Range("O58").Value
    Range("HF66").Value = Range("O66").Value
    Range("HF70").Value = Range("O70").Value
    Range("HF74").Value = Range("O74").Value
    Range("HF78").Value = Range("O78").Value
    Range("HF86").Value = Range("O86").Value
    Range("HF90").Value = Range("O90").Value
    Range("HF94").Value = Range("O94").Value
    Range("HF98").Value = Range("O98").Value
    Range("HF102").Value = Range("O102").Value
    Range("HF106").Value = Range("O106").Value
    Range("HF110").Value = Range("O110").Value
    Range("HF114").Value = Range("O114").Value
    Range("HF118").Value = Range("O118").Value
    Range("HF122").Value = Range("O122").Value
    Range("HF130").Value = Range("O130").Value
    Range("HF134").Value = Range("O134").Value
    Range("HF138").Value = Range("O138").Value
    Range("HF142").Value = Range("O142").Value
    Range("HF146").Value = Range("O146").Value
    Range("HF150").Value = Range("O150").Value
    Range("HF154").Value = Range("O154").Value
    Range("HF158").Value = Range("O158").Value
    Range("HF162").Value = Range("O162").Value
End If

End Sub