Ron, I am using your macro and get an error message on the line:

rng.Columns(29).AdvancedFilter _
Action:=xlFilterCopy, _
CopyToRange:=.Range("IV1"), Unique:=True

Columns(29) or "AC" is the last column in my currentregion and the
header row is "AC4". What do I change to make this work? TIA

Greg