Sorting Data into two different Sets

I am trying to add a sort to a macro that would separate the data into two different groups. There are columns for date, room, time. I would like to separate into a group the includes rooms A,B,C that is sorted by date, room, time then a group that includes rooms D,E,F that is also sorted by date, room, time.

Attach a sample workbook (not a picture or pasted copy). Make sure there is just enough data to demonstrate your need. Include a BEFORE sheet and an AFTER sheet in the workbook if needed to show the process you're trying to complete or automate. Make sure your desired results are shown, mock them up manually if necessary.

Remember to desensitize the data.

Click on GO ADVANCED and then scroll down to Manage Attachments to open the upload window.

The reason is yes, we can help, but something like this usually requires a bit of testing, and you will get much more help if people don't have to go and re-create your data in order to write some code for it. Thanks for understanding.

Try

Sub test()
    Dim x, a, b, e, n As Long
    n = 1
    With Cells(1).CurrentRegion
        With Cells(1).CurrentRegion.Offset(1).Resize(.Rows.Count - 1)
            x = Filter(Evaluate("transpose(if(isnumber(find(trim(" & _
            .Columns(3).Address & "),""ABC"")),row(1:" & .Rows.Count & ")))"), False, 0)
            If UBound(x) > -1 Then
                a = Application.Index(.Value, Application.Transpose(x), _
                Evaluate("column(" & .Rows(1).Address & ")"))
            End If
            x = Filter(Evaluate("transpose(if(iserr(find(trim(" & _
            .Columns(3).Address & "),""ABC"")),row(1:" & .Rows.Count & ")))"), False, 0)
            If UBound(x) > -1 Then
                b = Application.Index(.Value, Application.Transpose(x), _
                Evaluate("column(" & .Rows(1).Address & ")"))
            End If
            For Each e In Array(a, b)
                If IsArray(e) Then
                    With .Rows(n).Resize(UBound(e, 1))
                        .Value = e
                        .Sort .Cells(1, 1), , .Cells(1, 3)
                        n = n + UBound(e, 1)
                    End With
                End If
            Next
        End With
    End With
End Sub