Public data1 As Date
Public data2 As Date

Private Sub CommandButton1_Click()
data1 = Range("H1")
data2 = Range("I1")
   Call UDAL(data1, data2)
End Sub

Sub UDAL(data_1, data_2 As Date)
   Dim d1&, i&
   Dim iDate As Date
   Dim FoundDate As Range
     Application.ScreenUpdating = False
     d1 = Sheets("тест").Range("B" & Rows.Count).End(xlUp).Row
     Range("G2:G" & d1).ClearContents          'очищаем результат
   For i = 2 To d1
    If Cells(i, 2) >= data_1 And Cells(i, 2) <= data_2 Then    ' тогда идем дальше
      iDate = Cells(i, 2)
      With Worksheets("результаты")
        Set FoundDate = .Columns(1).Find(iDate, , xlFormulas, xlWhole)
        If Not FoundDate Is Nothing Then     'нашли дату на листе результаты
         If InStr(Cells(i, 3), .Cells(FoundDate.Row, 2)) <> 0 _
         And InStr(Cells(i, 3), .Cells(FoundDate.Row, 3)) <> 0 Then     'проверяем команды
           Cells(i, 7) = .Cells(FoundDate.Row, 4)
         End If
        End If
      End With
    End If                             '- конец условного блока по органичению по дате
   Next ' конец 1-го ц
   Application.ScreenUpdating = True
End Sub

.Offset(0, 0)

Set FoundDate = .Columns(1).Find(iDate, , xlFormulas, xlWhole)

...
For j = 1 To d2
If .Cells(j, 1) = Cells(i, 2) Then
....

=Substring(G2;":";1;1)

=Substring(SUBSTITUTE(G2;" ";":");":";2;2)

Function Substring(Текст As String, Символ_разделитель As String, _
                   Начальный_Номер_фрагмента As Long, Конечный_Номер_фрагмента As Long) As String
'---------------------------------------------------------------------------------------
' URL : http://www.planetaexcel.ru/tip.php?aid=54
' Purpose : Выделяет из текста субстринг/и, ориентируясь по символам-разделителям
' Notes : Substring(текст; символ_разделитель; Начальный_Номер_фрагмента, Конечный_Номер_фрагмента), где
' текст - текст, который делим
' символ_разделитель - символ, который надо считать разделителем фрагментов
' Начальный_Номер_фрагмента - порядковый номер фрагмента, с которого нужна выборка
' Конечный_Номер_фрагмента - порядковый номер фрагмента, по который нужна выборка
'---------------------------------------------------------------------------------------
    On Error Resume Next
    Dim sArr() As String, li As Long
    sArr = Split(Application.Trim(Текст), Символ_разделитель)
    If Конечный_Номер_фрагмента > 0 Then
        Начальный_Номер_фрагмента = Начальный_Номер_фрагмента - 1
        Конечный_Номер_фрагмента = Конечный_Номер_фрагмента - 1
        For li = Начальный_Номер_фрагмента To Конечный_Номер_фрагмента
            Substring = IIf(li = Начальный_Номер_фрагмента, sArr(li), Substring & _
                    Символ_разделитель & sArr(li))
        Next li
    Else
        Substring = Split(Application.Trim(Текст), _
                          Символ_разделитель)(Начальный_Номер_фрагмента - 1)
    End If
End Function

Sub UDAL(data_1, data_2 As Date)
   Dim d1&, i&
   Dim iDate As Date
   Dim FoundDate As Range
   Dim FirstDate As String
     Application.ScreenUpdating = False
     d1 = Sheets("тест").Range("B" & Rows.Count).End(xlUp).Row
     Range("G2:G" & d1).ClearContents          'очищаем результат
   For i = 2 To d1
    If Cells(i, 2) >= data_1 And Cells(i, 2) <= data_2 Then    ' тогда идем дальше
      iDate = Cells(i, 2)
      With Worksheets("результаты")
        Set FoundDate = .Columns(1).Find(iDate, , xlFormulas, xlWhole)
        If Not FoundDate Is Nothing Then     'нашли дату на листе результаты
         FirstDate = FoundDate.Address
          Do
           If InStr(Cells(i, 3), .Cells(FoundDate.Row, 2)) <> 0 _
             And InStr(Cells(i, 3), .Cells(FoundDate.Row, 3)) <> 0 Then     'проверяем команды
             Cells(i, 7) = .Cells(FoundDate.Row, 4)
             Exit Do
           End If
            Set FoundDate = .Columns(1).FindNext(FoundDate)
          Loop While FoundDate.Address <> FirstDate
        End If
      End With
    End If                             '- конец условного блока по органичению по дате
   Next ' конец 1-го ц
   Application.ScreenUpdating = True
End Sub

Sub Razdel()
Dim i As Long
Dim iLastRow As Long
  iLastRow = Cells(Rows.Count, 7).End(xlUp).Row
  For i = 2 To iLastRow
    If Not IsEmpty(Cells(i, 7)) Then
      Cells(i, 5) =Val( Split(Split(Cells(i, 7), "(")(0), ":")(0))
      Cells(i, 6) =Val( Split(Split(Cells(i, 7), "(")(0), ":")(1))
    End If
  Next
End Sub