How to combine two codes

Private Sub CommandButton3_Click()
    Dim arr, brr, drr, grr, k&
    Dim M, n, Q As Integer
    Dim s As String
    Dim dt1, dt2 As Date
    
    n = Sheets("Sheet1").[D65536].End(xlUp).Row
    arr = Sheets("Sheet1").Range("C1:N" & n)
    ReDim brr(1 To UBound(arr), 1 To UBound(arr, 2))
    For i = 1 To UBound(arr, 2)
        brr(1, i) = arr(1, i)
    Next
    crr = VBA.Split(VBA.Trim(TextBox6.Text), ",")
    M = 1
    For k = 0 To UBound(crr)
        For i = 2 To UBound(arr)
            If arr(i, 2) Like "*" & crr(k) & "*" And arr(i, 6) Like "*" & UserForm1.TextBox5.Text & "*" Then
                M = M + 1
                For j = 1 To UBound(arr, 2)
                    brr(M, j) = arr(i, j)
                Next
            End If
        Next
    Next k
    
    ReDim arr(1 To M, 1 To UBound(brr, 2))
    For i = 1 To M
        For j = 1 To UBound(brr, 2)
            arr(i, j) = brr(i, j)
        Next
    Next

        
        UserForm1.ListBox3.List = arr
          
        
Dim arr, brr
Dim M, n As Integer
Dim s As String

Dim dt1, dt2 As Date
dt1 = DateSerial(ComboBox2.Value, ComboBox3.Value, ComboBox4.Value)
dt2 = DateSerial(ComboBox5.Value, ComboBox6.Value, ComboBox7.Value)
n = Sheets("Sheet1").[D65536].End(xlUp).Row
arr = Sheets("Sheet1").Range("C1:N" & n)

ReDim brr(1 To UBound(arr, 2), 1 To 1)
For i = 1 To UBound(arr, 2)
brr(i, 1) = arr(1, i)
Next
M = 1
For i = 2 To UBound(arr)
    If arr(i, 1) >= dt1 And arr(i, 1) <= dt2 Then
            M = M + 1
        ReDim Preserve brr(1 To UBound(arr, 2), 1 To M)
        
        For j = 1 To UBound(arr, 2)
            brr(j, M) = arr(i, j)
        Next
    End If
Next


UserForm1.ListBox3.List = Application.Transpose(brr)


End Sub