try this mark first cell u want formula in
Sub Lasey()
Dim i
For i = 5 To 1000 Step 7
If Range("A" & i) < "" Then ' Change A to urs kolumn
ActiveCell.Formula = "=A" & i ' Change A to urs kolumn
ActiveCell.Offset(1, 0).Activate
End If
Next
End Sub