Use VBA to populate Range based on Dropdown date selection

When a date is selected,
you want to copy the complete set of data corresponding to a date in sheet "RawData" and paste it in the range "B8:H23" in sheet "Output Sheet" .
Is it?

See how the file attached can help.
Concerning the YTD I don't know what to do

I will have a look and will answer you, but not immediately

Here we are

Private Sub ComboBox21_Change()
Dim J  As Integer, LastCol As Integer
Dim WkVal
Dim Temp
    ComboBox21.Value = Format(ComboBox21.Value, "mm/dd/yyyy")       '  TO  REFRESH THE DATE FORMAT IN COMBOBOX
    WkVal = Format(ComboBox21.Value, "0")  ' THE COMBOBOX DATE IN INTEGER
    With Sheets("RawData")
        LastCol = .Cells(1, Columns.Count).End(xlToLeft).Column     '  LAST COLMUMN IN ROW 1
        For J = 1 To LastCol            '  LET REVIEW ALL CELLS IN ROW 1 FROM LEFT TO RIGHT
            Temp = Format(.Cells(1, J).Value, "0")  ' ROW 1 CELL VALUE WITH SAME FORMAT THAT COMBOBOX DATE
            If (Temp = WkVal) Then
'   THE CELL READ HAS THE SAME VALUE THAT THE COMBO BOX DATE
'        FROM THE CELL READ                     => .Cells(1, J
'        GET DOWN 1 ROW                         => .Offset(3, 0)
'        COVER A RANGE OF 16 ROWS AND 7 COLUMNS => .Resize(16, 7)
'        COPY THIS RANGE                        => .Copy
'        PASTE THIS RANGE IN B8                 =>  Destination:=Range("B8")
                .Cells(1, J).Offset(3, 0).Resize(16, 7).Copy Destination:=Range("B8")
                Range("B4") = WkVal     '  UPDATE B4 WITH THE NEW COMBOBOX  DATE
            End If
        Next J
    End With
End Sub

by the way :
- The date in the ComboBox or in sheet RawData could be prepared with same format
- In the code attached cell B4 is updated with ComboBox date value