Sorting Data across rows

I've attached the spreadsheet I want to use. As you can see there are three sets of "bootcamper name" and "time" columns

I wanted to know how I can sort by name or time if I were fill in data that started from A7 and B7 all the way down to A43 and B43
then restarts at C7 and D7 all the way down to let's sat C30 and D30

If I wanted to list all the data alphabetically ( or by time ) from A7 and B7 all the way down to C30 and D30, how can I do that? Is is possible?

Please and thank you!

it's possible when you use a macro (VBA)

So I entered in data to make it easier...how can I situate the sorting so upon completion
(this would be an alphabetical sort
A7 would be Amy B7 would be 13
A8 would be Bill B8 would be 27
A9 would be Rick B9 would be 24

Terrible Tuesday.xlsx

copy and paste this in a module and run the macro

Sub Sorteren()
  Dim a, r%, k%, Dict As Object, b, splits, c As Range

  Set c = Sheets("sheet1").Range("A7:F100")
  a = c.Value

  Set Dict = CreateObject("system.collections.arraylist")
  With Dict

    For r = 1 To UBound(a)
      For k = 1 To UBound(a, 2) Step 2
        If Not (IsEmpty(a(r, k))) Then .Add Left(a(r, k) & Space(50), 50) & Chr(2) & a(r, k + 1)
      Next
    Next
    .Sort
    a = .toarray
  End With

  ReDim b(1 To 1 + Int(UBound(a) / 3), 1 To 6)
  For r = 0 To UBound(a)
    splits = Split(a(r), Chr(2))
    b(1 + Int(r / 3), 1 + 2 * (r Mod 3)) = Trim(splits(0))
    b(1 + Int(r / 3), 2 + 2 * (r Mod 3)) = CDbl(splits(1))
  Next

  With c
    .ClearContents
    .Resize(UBound(b), UBound(b, 2)).Value = b
  End With
End Sub

thank you!