Tehetsz be egy rövid makrót, amit majd egy gombhoz rendelsz. A makró bekéri a kezdő, és a záró dátumot, és elvégzi a megfelelő rendezést.

A Range("A4").Select helyett írd be annak a cellának a címét, amelyik a dátumok címsorát tartalmazza.

Sub Csoport()
    Dim kezd As Date, vég As Date
   
    kezd = InputBox("Kezdő dátum", "Kezdő dátum bekérése", Default)
    vég = InputBox("Záró dátum", "Záró dátum bekérése", Default)
   
    Range("A4").Select
    Selection.Group Start:=kezd, End:=vég, Periods:=Array(False, False, _
        False, True, True, False, False)
End Sub