Making multiple rows into a single row

I have attached an example form. I was hoping to write a macro that would take all rows that that have the same number in Column A and put them in a single row without repeating anything that is repeating. For instances, if you look at the example I am trying to pull the information from sheet "Season Ticket Holder" to sheet "Survey Merge". The first four rows all have the same number in column A and I would like them to be pulled into one row into sheet "Survey Merge". I don't want the names and addresses to be repeated though. Then for the phone number I would like it to pull the different phone numbers and then take the type of phone number it is. So the result of the macro should look like sheet "Result". Any help would be appreciated. Thank You!

Joe

Do you think an If statement will the most efficient way to pull the information from the pivot tables?

Thank you again so much! I apologize for the long response! It works perfect!