How to reference every nth cell in a column

Helo,

I have a data entry spreadsheet that contains 120 data entry panels each of 10 rows. Each panel is separated by 3 rows (1 of which is hidden). When entering data to the panel the user is required to enter a date in column F of the data entry panel. The number of used rows in each data entry panel can vary from 1 to 10.

The entry of a date in the first Column F cell in each entry panel stamps today's date in Col F in the first row below each data panel (the hidden row) and that date is then linked to a separate summary sheet to show the date of data entry. The code I'm using for the date stamping routine is below, and although it works it is painfully slow and I'm sure very inefficient. I've had to break the code into the three sections as shown below because there seems to be a limit to the number of individual cells I can reference in each of the range statements. (Is there a limit or is the length of the range statement causing some other problem?)

My vba skills are still pretty limited and I can't crack a way to make this code faster/better/more efficent. Can anyone assist with changes to the code below to reference every 13th cell rather than list each 13th cell separately as I've done? Any help will be greatly appreciated.

Please Login or Register  to view this content.

Try this (untested):

Please Login or Register  to view this content.

it computes the row number modulo 13, which is zero for every 13th row.