Remove Duplicates - Column A

I'm going to lose my mind on this one...

I just need a simple code for removing duplicate values that are contained in the first column. It needs to be VBA for a larger project.

I recorded the following:

ActiveSheet.Range("TableXXXX[#All]").RemoveDuplicates Columns:=1, Header:=x1Yes

When I go back in to run it, it comes up with runtime error... Not sure if it's because of the sheet name - the sheet name will change day over day. The entire range is approximately A1:CU250

Thank you,

.

Not certain I understand the Sheet Name changing but this will work if the sheet with the dupes is the "active sheet" (the one you are viewing at the time). Also, if you want to remove
all the blank cells (not the rows, just the cells in Col A), include the second macro as well:

Please Login or Register  to view this content.

Thanks for the help; but I copied pasted the below and still get the 1004 runtime error. I also tried changing the header to "Yes" because it does have a header. There will never be a blank in column A so I don't need the additional VBA.

Thank you,

Columns("A:A").Select
ActiveSheet.Range("$A:$B").RemoveDuplicates Columns:=1, Header:=xlNo

.
Hmmm ....

Post your workbook here for review ? Leave out any confidential information.

Try this.

Please Login or Register  to view this content.