Temat: Makro do zmiany zakresu komórek. Prośba o pomoc

Witam mam prośbe czy wie ktoś może jak zmodyfikować tak nagrane makro aby makro to zmieniało zakres {14,15,16,17,18} na kolejny ciąg liczbowy czyli {19,20,21,22,23} i tak za każdym razem na następnym ciąg 5 cyfrowy. Pozdrawiam

Range("H4").Select
ActiveWindow.SmallScroll ToRight:=6
Range("S4").Select
ActiveCell.FormulaR1C1 = _
"=SUM(VLOOKUP(RC[-18],Rozchody!C[-18]:C[226],{14,15,16,17,18},0))"
Range("S4").Select
Selection.AutoFill Destination:=Range("S4:S300")
Range("S4:S300").Select
Range("S4").Select

Temat: Makro do zmiany zakresu komórek. Prośba o pomoc

Czy dobrze rozumiem, że wypełniamy formułą:
=SUM(VLOOKUP(RC[-18],Rozchody!C[-18]:C[226],{14,15,16,17,18},0))
kolejne wiersze zakresu: Range("S4:S300")
w wierszu S4 ma być: =SUM(VLOOKUP(RC[-18],Rozchody!C[-18]:C[226],{14,15,16,17,18},0))
w wierszu s5 ma być: =SUM(VLOOKUP(RC[-18],Rozchody!C[-18]:C[226],{19,20,21,22,23},0))
w wierszu s300: =SUM(VLOOKUP(RC[-18],Rozchody!C[-18]:C[226],{1494,1495,1496,1497,1498},0))
?

Jeśli tak to takie makro mogłoby wyglądać tak:

Sub test()
For i = 0 To 296
Range("S" & i + 4).FormulaR1C1 = "=SUM(VLOOKUP(RC[-18],Rozchody!C[-18]:C[226],{" & CStr(14 + i * 5) & "," & CStr(15 + i * 5) & "," & CStr(16 + i * 5) & "," & CStr(17 + i * 5) & "," & CStr(18 + i * 5) & "},0))"
Next
End Sub

Pozdrawiam Tomasz Gryzio