Hi

In D5 and copied across,

=IF(COLUMNS($D5:D5)<=$B$1,IF(COLUMNS($D5:D5)=1,$B$ 2,C5+1),"")

In Scrollbar's property, type B1 in LinkedCell, set Max as required.