copy across multiple rows and columns the data to one column removing dupilicates

First let me thamk all of you for the help you have given me over the years.

I have a worksheet with 7 columns across and 34 rows down. (it will get bigger as time goes on)

I would like to copy that data to a single column without duplicates.

In a nut shell what it is, is the days of the week across the top and times running up and down in 30 minute increments. As people rent the ice we put their names in a cell.

In the end I'd like to select the cells and copy that data to a row removing duplicates so we have a clean customer list.

I tried using advanced filter but the issue there is the blank cells if we dont sell the ice. It also seems to have an issue copying the data to a one column list.

Your help is much appreciated!!!!

See attached (if I did it right)

It looks like the file uploaded just fine.
So what I am trying to do is when i click "filter data" on summary sheet it will list the teams in the "I" column but only list them once. Basically it will just filters all the data and removes the duplicates.

I'd like to keep "closed" and "silver stick" in the list that way later on i can do a "COUNTIF" and see where all the ice went.

I got an error on the macro: "run time error 438" on the line .Columns("I:I").RemoveDuplicates Columns:=1, Header:=xlYes

THANK YOU!!!!! That worked GREAT!!!!!!

many many thank yous!!!!!