let
Source = Excel.CurrentWorkbook(){[Name="Table4"]}[Content],
#"Demoted Headers" = Table.DemoteHeaders(Source),
#"Filled Down" = Table.FillDown(#"Demoted Headers",{"Column1"}),
#"Promoted Headers" = Table.PromoteHeaders(#"Filled Down", [PromoteAllScalars=true]),
#"Renamed Columns" = Table.RenameColumns(#"Promoted Headers",{{"2022", "Year"}}),
#"Changed Type" = Table.TransformColumnTypes(#"Renamed Columns",{{"Year", Int64.Type}}),
#"Added Custom" = Table.AddColumn(#"Changed Type", "Month", each Date.Month(Date.AddWeeks(#date([Year],1,1),[Week Number])))
in
#"Added Custom"