VBA for dividing spread sheet by rows

[Smilin]

I need to somehow divide evenly a spread sheet “Sheet 1”, having columns A to O, which is pendent on number of rows in a sheet per number of people in the office. Each section can be simply separated by thicker border line. I have a formula on a separate sheet “Entries #” which calculates how my rows are assigned to each person. Ie. 103 entries (rows) amongst 9 ppl Formula is =MOD(A1,A2)& " people get "&QUOTIENT(A1,A2)+1 and =A2-MOD(A1,A2) &" people get "&QUOTIENT(A1,A2) so this would have 4 people deal with 12 entries (rows) in the sheet and 5 people with deal with 11 rows in the sheet. These variables change daily.

What makes this worse, is that within the sheet there are a few black rows (conditional formatting) which are not to be counted as a row. This row doesn’t have useful data and most of the cells are empty, hence highlighting it black. For reference in this black line the cells in column A, B, C, are empty.

So I am not sure if a VBA can be written for this, having to refer to the Entries # where the formula is, and which would display the number of entries/ ppl in the office, or if conditional formatting would do, and I would have to change the number of rows per number of people in the office with in the conditional formatting formula, as needed. Thank you - gratitude.

 

[Smilin]

I am overcome by tears of happiness. Thank you, its perfect. Yes, red line would be easier to see, I ll make that change. Thank you for the suggestion.

 

[Snakehips]

I am overcome by tears of happiness. Thank you, its perfect. Yes, red line would be easier to see, I ll make that change. Thank you for the suggestion.

@Smilin You are most welcome.
Now pull yourself together and get on with your work!