Sub Primer() Dim offset1 As Integer Dim offset2 As Integer Dim offset3 As Integer Dim offset4 As Integer offset1 = 6 offset2 = 12 offset3 = 15 offset4 = 18 For i = 1 To 98 Step 1 Cells(offset1 + 23, 5) = Cells(offset1, 5) + 4 Cells(offset2 + 23, 5) = Cells(offset2, 5) + 4 Cells(offset3 + 23, 5) = Cells(offset3, 5) + 4 Cells(offset4 + 23, 5) = Cells(offset4, 5) + 4 offset1 = offset1 + 23 offset2 = offset2 + 23 offset3 = offset3 + 23 offset4 = offset4 + 23 Next i End Sub