If 74 records should procude increments of 12, with records 73 and 74 being tagged as 7 and 19, then --
<font face=Courier New><SPAN style="color:#00007F">Sub</SPAN> SixPack()
<SPAN style="color:#00007F">Dim</SPAN> i <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">Long</SPAN>, j <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">Long</SPAN>, StartNum <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">Long</SPAN>, LastRow <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">Long</SPAN>
<SPAN style="color:#00007F">Dim</SPAN> Increment <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">Long</SPAN>
<SPAN style="color:#00007F">Dim</SPAN> MySheet <SPAN style="color:#00007F">As</SPAN> Worksheet
<SPAN style="color:#007F00">' // Change Sheet1 below to your //</SPAN>
<SPAN style="color:#007F00">' // worksheet name, or to the //</SPAN>
<SPAN style="color:#007F00">' // Sheets(1) syntax to refer //</SPAN>
<SPAN style="color:#007F00">' // to the 1st sheet in any WB. //</SPAN>
<SPAN style="color:#00007F">Set</SPAN> MySheet = Worksheets("Sheet1")
StartNum = 1
<SPAN style="color:#00007F">With</SPAN> MySheet
LastRow = .[A65536].End(xlUp).Row
Increment = Int(LastRow / 6)
Range("B:C").ClearContents
<SPAN style="color:#00007F">For</SPAN> i = 1 <SPAN style="color:#00007F">To</SPAN> LastRow <SPAN style="color:#00007F">Step</SPAN> Increment
<SPAN style="color:#00007F">For</SPAN> j = 0 <SPAN style="color:#00007F">To</SPAN> (Increment - 1)
<SPAN style="color:#00007F">If</SPAN> (i + j) <= LastRow <SPAN style="color:#00007F">Then</SPAN>
.Cells(i + j, 2) = i + j
.Cells(i + j, 3) = StartNum + (j * Increment)
<SPAN style="color:#00007F">Else</SPAN>
<SPAN style="color:#00007F">Exit</SPAN> <SPAN style="color:#00007F">For</SPAN>
<SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">If</SPAN>
<SPAN style="color:#00007F">Next</SPAN> j
StartNum = StartNum + 1
<SPAN style="color:#00007F">Next</SPAN> i
<SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">With</SPAN>
<SPAN style="color:#00007F">Set</SPAN> MySheet = <SPAN style="color:#00007F">Nothing</SPAN>
<SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN>
</FONT>
Closer?