How to use List.Generate to find continous ranges?

Hi Guys,

my input data:
NameVacation Date

and now i grouped rows:

let
    Source = #"Table1 (3)",
    GroupedRows = Table.Group(Source, {"Name"}, {{"Grp", each 
        let a = _, 
        b = Table.AddIndexColumn(a, "Index", 0, 1, Int64.Type),
        counter = 0,
        c = Table.AddColumn(b, "Vacation No", each
                 let   
                 d = b[Vacation Date],
                 CounterState = List.Generate(
                        () => [IndexNo=1, CounterValue = 1, PrevDate=d{1}],
                        each [CounterValue] < 5,
                        each [
                            CounterValue = 1,
                            PrevDate = d{1}
                        ],
                        each [CounterValue]
                    )
                in CounterState
                )
        in c}})
in
    GroupedRows

so what i want to do is for each person generate list of continuous ranges. 

Output should be:

so as you can see i need to use List.Generate to add record with Vacation No, Workdays, Vacation From Date and Vacation End Date. 

I stacked because List.Generate is creating a list inside each row, but I have issues with:
1) How to set up start of list:
d = b[Vacation Date] = i am looping always through whole list which is not necessary, I want to just start from specific row.
2) how to use date time functions and duration to specify if days are next to each other?
In this step, I want to build lists only for specific rows and check if ranges are continuous (if day diff <> 1 , then it is not continuous range and should reset whole loop and start from specific date)

Will be grateful for any help,
Best,
Jacek