Hello..

How can I code copying the 5 row down of StyleNum found in separate worksheet into the StyleFlow with intervals of 7 rows down:

NumItms = 5 (can vary 1 upto 30)

StyleSheet = worksheet with the range:
StyleRecordRange(upto 30 StyleNumbers)

StyleFlow = another worksheet that has the range
where I want to copy the StyleNumbers
at an interval of every 7 rows down...


Code:
Dim NumItms As Integer
NumItms = ActiveSheet.Range("NumItms").Value

For StyleCount = 0 To NumItms
ActiveCell.Range("FirstStyleNum").Value = ActiveCell.Range("StyleRecordRange")(StyleCount).Value
Next

ActiveSheet.Range("StyleSheet").CopyFromRecordset StyleRecordRange

End Sub


Any help is appreciated...

Thanks,