VBA code to divide names exually to range

Hello guys,

is it possible to create macro which will be dividing names marked as "TRUE" behind him to range in column? The range will always be different, in this case it is 15

I would like to have it like you can see below, but with my VBA basics I do not know how to do it
Screen Shot 2019-02-16 at 10.47.39 PM.png

Many thanks !

I did not specify it properly, sorry
The main thing is: if there is "TRUE" behind name in E1, G1, I1 or K1 -- these marked names should be exually divided into column or range A1:A15 (15 cells, 3 names with TRUE - so every name will have 5 cells)

But thank you !

Sorry, I added it.. hope it`s enough

Thank you

Works nice ! Thank you for your post, but it will always give 7 cells to each name... it should be calculated so
if there will be for example 21 cells in table = each name should have 7 cells
22 cells = each name 7 and last one 8 cells
23 cells = first will have 7 and rest 8 cells (or vice versa)
24 cells = each name will have 8
see screenshot belowScreen Shot 2019-02-17 at 12.04.16 PM.png

Thank you guys
I appreciate it a lot

Working very well guys ! Thank you

Reputation added at least