Sub mojemakro()
    krok = 0.001

    For i = 1 To 20
        Range("C94").FormulaR1C1 = i * krok
        Cells(1 + i, 55).Value = i * krok

        Range("V97").Copy
        Cells(i, 56).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=False

        Range("X97").Copy
        Cells(i, 57).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=False
    Next i
End Sub