Fill Series with Step
 

Hi,

I have the following code (found it in this group):

Sub FillSeries()
ActiveCell.Value = Range("A1").Value
ActiveCell.DataSeries Rowcol:=xlColumns, Type:=xlLinear, _
Step:=Range("F2"), Stop:=Range("A50")
End Sub

A1= Start value
A50= Stop value (last cell)
F2= Step value

But it only works for a linear data set... I want to copy each fifth
(or another step value) value in a column to a second column. Any
idea?
Thanks for any help!

Anders