求高手帮忙修改下【循环录入数字】代码 万分感谢

LWXT

各位高手（前辈）        近日在本网站发帖求助，求得一根据A列最后序号（数值）在指定单元格【C6】，
从1开始逐个录入A列全部序列号的宏代码。非常好用。
      现在，我有个类似问题，既指定的单元格为单元格区域【D8：D15]，不知代码

参数如何修改，请各位高手（前辈）帮忙修改下。原代码如下，详见附件
万分感谢

Sub luru2()

Dim i, s As Integer

i = Sheets("明细").Columns(1).Cells(Sheets("明细").Columns(1).Cells.Count).End(xlUp).Row

For s = 1 To Sheets("明细").Cells(i, 1).Value Step 1

Sheets("录入").Cells(6, 3) = s

ThisWorkbook.Save

Next

End Sub

LWXT

原目标单元格为C6单元格，我想请教现在目标单元格变为  F8：F15  序号录入从 F8开始 1、2、3
4、5、6、7、8  再从F8开始 录入 9、10、11、12、13....... 既序号在F8：F15之间循环。恳请您
在帮忙给个代码。万分感谢。

LWXT

可能是我表述的不够清楚，高手们没有看懂，现学了制作动画，试着发个动画图片，希望高手们能
看懂。  感谢帮助

LWXT

LWXT 发表于 2016-2-3 10:51
可能是我表述的不够清楚，高手们没有看懂，现学了制作动画，试着发个动画图片，希望高手们能
看懂。  感谢 ...

上个新附件