Copying selected time

Use this formula in cell G6 and fill down

Formula:

=IF(ISERROR(MINUTE(A6)),"",IF(MINUTE(A6)=2,1,""))

It will flag all the rows where the Minutes are 02

You can sort by column G to get your selected group.

You can use a macro to extract the data if you want.

Sub Macro1()


LR = Cells(Rows.Count, 1).End(xlUp).Row

    Range("G6:G" & LR).FormulaR1C1 = _
        "=IF(ISERROR(MINUTE(RC[-6])),"""",IF(MINUTE(RC[-6])=2,1,""""))"
    Range("G6:G" & LR).Value = Range("G6:G" & LR).Value
    
    With Range("A1:G" & LR)
        .HorizontalAlignment = xlGeneral
        .VerticalAlignment = xlTop
        .WrapText = True
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    
    
       
    ActiveWorkbook.Worksheets("Table 1").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Table 1").Sort.SortFields.Add Key:=Range( _
        "G1:G" & LR), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("Table 1").Sort
        .SetRange Range("A1:G" & LR)
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    
    Application.DisplayAlerts = False
    
    On Error Resume Next
    Sheets("Output").Delete
    Sheets.Add After:=Sheets(1)
    ActiveSheet.Name = "Output"
    On Error GoTo 0
    
    Application.DisplayAlerts = True

    Sheets("Table 1").Select
        LR = Cells(Rows.Count, 7).End(xlUp).Row
        Range("A1:G" & LR).Copy Sheets("Output").Range("A1")
End Sub

Run the macro

Sub Macro1()


LR = Cells(Rows.Count, 1).End(xlUp).Row

    Range("G6:G" & LR).FormulaR1C1 = _
        "=IF(ISERROR(MINUTE(RC[-6])),"""",IF(MINUTE(RC[-6])=2,1,""""))"
    Range("G6:G" & LR).Value = Range("G6:G" & LR).Value
    
    With Range("A1:G" & LR)
        .HorizontalAlignment = xlGeneral
        .VerticalAlignment = xlTop
        .WrapText = True
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    
    
       
    ActiveWorkbook.Worksheets("Table 1").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Table 1").Sort.SortFields.Add Key:=Range( _
        "G1:G" & LR), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("Table 1").Sort
        .SetRange Range("A1:G" & LR)
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    
    Application.DisplayAlerts = False
    
    On Error Resume Next
    Sheets("Output").Delete
    Sheets.Add After:=Sheets(1)
    ActiveSheet.Name = "Output"
    On Error GoTo 0
    
    Application.DisplayAlerts = True

    Sheets("Table 1").Select
        LR = Cells(Rows.Count, 7).End(xlUp).Row
        Range("A1:G" & LR).Copy Sheets("Output").Range("A1")
End Sub