Udalo mi sie rozwiazac problem samodzielnie:

Dim i, k, r, deltap, deltaVU, VU, P As Double
deltaVU = Sheets("QDEK3").Range("R19")
deltap = Sheets("QDEK3").Range("R13")
Sheets("QDEK3").Range("S17").Copy Sheets("Arkusz1").Range("C5")
Sheets("QDEK3").Range("S11").Copy Sheets("Arkusz1").Range("C6")
VU = Sheets("Arkusz1").Range("C5")
P = Sheets("Arkusz1").Range("C6")
r = 1310
For i = 1 To 26
'to jest petla od pojemnosci zbiornika
For k = 1 To 11
Sheets("Arkusz1").Range("C5").Copy Cells(r, 8)
Sheets("Arkusz1").Range("C6").Copy Cells(r, 9)
'gwarancja czasowa
Cells(r, 10) = Cells(6, 16).Value
'KIR
Cells(r, 11) = Sheets("Arkusz1").Range("B16").Value
'KER
Cells(r, 12) = Sheets("Arkusz1").Range("B22").Value
'KIZ
Cells(r, 13) = Sheets("Arkusz1").Range("B31").Value
'KEZ
Cells(r, 14) = Sheets("Arkusz1").Range("B32").Value
P = Sheets("Arkusz1").Range("C6")
P = P + deltap
Sheets("Arkusz1").Range("C6").Select
ActiveCell.FormulaR1C1 = P
r = r + 1
Next k
r = r + 1
VU = VU + deltaVU
Sheets("Arkusz1").Range("C5").Select
ActiveCell.FormulaR1C1 = VU
Sheets("QDEK3").Range("S11").Copy Sheets("Arkusz1").Rang