macro to copy with incremental values

Hi folks,
i have this macro that copies the values of the formula and pastes in steps every 30 rows. It is working except that it copies the formula without increasing the value of the cells in the formula. So that now i have the same formula on row 1 and row 30, row 60 etc

what's wrong?

thanks

Sub createwsheet()
'Sub aStart3()
    Dim r As Range, i As Long
    Application.ScreenUpdating = False
    With ActiveSheet
        Set r = .Range("A1:F1")
        For i = 31 To 2700 Step 30 'adjust as desired
            r.Copy .Cells(i, 1)
        Next i
    End With
    Application.ScreenUpdating = True
End Sub