Si può fare tutto... ma serve saperci lavorare...!
La Settimana, per tutti inizia a mezzanotte del Nuovo Giorno, questo significa che tu devi crearti una Funzione Alternativa per il calcolo della TUA settimana lavorativa che vada dalle 6 del Lunedì alle 6 del Lunedì successivo... a quel punto potrai Raggruppare per settimana.
Suggerisco di generare un Campo Testo Calcolato in una query che sfruttando la Data estesa con hh:mm:ss costruisca un valore Testuale contenente ANNO e SETTIMANA, del tipo "Y19W07" in questo modo riesci a raggruppare correttamente.
Questa Funzione calcola la Settimana Di base, per modificarla con la finalità da te richiesta devi semplicemente SOTTRARRE 6h all'orario se e solo se il giorno è Lunedì e l'Ora è < delle ore 6.
Prova a modificarla e testarla in Finestra Immediata...
Public Function Date2Week(Optional ByVal dtmDate As Variant) As Byte
' ------------------------------------------------------
' Calcolo formato ISO 8601:1988 standard
' Verificati i casi da KB [OK]
' https://support.microsoft.com/it-it/kb/200299
' ------------------------------------------------------
Dim ret As Byte
If IsMissing(dtmDate) Then dtmDate = Date
ret = Format(dtmDate, "ww", vbMonday, vbFirstFourDays)
If ret > 52 Then
If Format(dtmDate + 7, "ww", vbMonday, vbFirstFourDays) = 2 Then ret = 1
End If
Date2Week = ret
End Function