If([DB ThisMonth].Count(),DeleteRows([DB ThisMonth]),
Sequence(1,_AllDatesThisMonth.Count()).FormulaMap(
[DB ThisMonth].AddRow(
TheDate,_AllDatesThisMonth.Nth(CurrentValue),
[DB ThisMonth].WeekDayName,_AllDatesThisMonth.Nth(CurrentValue).WeekdayName(),
[DB ThisMonth].WeekNumber,_AllDatesThisMonth.Nth(CurrentValue).IsoWeekNumber()
)))