let
Source = Excel.CurrentWorkbook(){[Name="tblPDF"]}[Content],
Split1 = Table.SplitColumn(Source, "Column1", Splitter.SplitTextByDelimiter(" : ", QuoteStyle.Csv), {"a", "b"}),
Split2 = Table.SplitColumn(Split1, "Column2", Splitter.SplitTextByDelimiter(" : ", QuoteStyle.Csv), {"c", "d"}),
AddIndex = Table.AddIndexColumn(Split2, "Index", 0, 1, Int64.Type),
lst = List.Accumulate(Table.ToRows(AddIndex), {}, (s,c)=>
if Number.IsEven(c{4}) then s & List.FirstN(c,4) & List.FirstN(Record.ToList(AddIndex{c{4}+1}),4) else s),
Result = Table.FromRows(List.Split(List.Alternate(lst, 1, 1,0),4),List.Distinct(List.Alternate(lst, 1, 1,1)))
in
Result