Help with a complicated macro

[Busscheduler]

Hi everyone, I am looking for help with a macro that will sort a list of guests that is dependent on what resort they are staying at and then open a new tab and place that information in a certain format. Here is the information that I am working with in Excel:

I apologize if I need to upload the spreadsheets. Please let me know and I will do that instead of jpegs.

The macro would need to sort each group by resort name, since the number of rows would change daily depending on how many guests they have that day, collect only the names for that resort and put them together in the format below.

I have limited skills when it comes to doing Macros, so any help would be greatly appreciated.

 

[Busscheduler]

The code I provided assumes the data is in columns "R" "S" and "V"
it pastes the required data to columns "B" and "C" as per your original sample post.
However, the data you posted in post #9 is completely different from the original, so obviously wouldn't give the desired results !!

Yes, looking back at what I posted, it does look like that. My apologies for misleading you on that one.
I originally wanted to open a new tab and insert the information there. After thinking about it, I decided to forego the new tab and paste the information at the end of the current information. I altered the code a little to reflect the new columns:

Sub MM1()
 Dim lr As Long, r As Long, x As Integer
 lr = Cells(Rows.Count, "R").End(xlUp).Row
     Cells(2, "R").Copy Cells(2, "AE")
 For r = 3 To lr + 1
    If Cells(r, "S") <> Cells(r - 1, "S") Then
        Cells(r, "S").Copy Cells(r, "AG")
    End If
 Cells(2, "S").Copy Cells(2, "AG")
 Cells(r - 1, "V").Copy Cells(r - 1, "AH")
 Next r
End Sub

The issue that I still have is in Column "R". I can only get the first time in cell R2 to copy and paste but I can't get any of the times below it to copy and paste. I've tried several different lines of code but I don't know how to advance it to R3 and R4 and so on. Could you help me with that? After that, the code is great and works fantastically.

 

[Michael M]

Don't have EXcel at the moment, but shouldn't this line be referenceing col "R"

If Cells(r, "S") <> Cells(r - 1, "S") Then

If Cells(r, "R") <> Cells(r - 1, "R") Then

 

[Busscheduler]

Don't have EXcel at the moment, but shouldn't this line be referenceing col "R"

If Cells(r, "S") <> Cells(r - 1, "S") Then

If Cells(r, "R") <> Cells(r - 1, "R") Then

Michael M,
First, I want to apologize for my absence over the last 4 or 5 days. I was called out of town at the last minute and haven't had time to work on anything.
Second, you are correct that the original information that I sent did reference column "R". After I ran the macro a few times, and watched every step of the process, I changed some of the references.
Thank you very much for your help with this. I think that the foundation that you provided to get me started is working well and I will continue to work on this. I will mark this as solved for now, and I will hop back on if I need more help.

Thanks again Michael M and Alansidman for your assisstance.