Selected Answer
Ghost
Your example file doesn't help too much (since the Advanced filter is not removing duplicates) so I'm not exactly clear what you want. If you want to remove entries which are repeated (in one or more columns), you could use the Remove Duplicates method and just add this line (in bold) to your existing code:
.Range("A2:K" & LastLogRow).AdvancedFilter xlFilterCopy, CriteriaRange:=.Range("P2:P3"), CopyToRange:=.Range("R2:AB2"), Unique:=True
' remove duplicates in range columns stated in array
.Range("R2:AB" & LastLogRow).RemoveDuplicates Columns:=Array(1,2,4,6,7,8,9), Header:=xlYes
where the Array lists the combinations of columns where duplicates are removed. In the case of Array(
1,2,4,6,7,8,9) above, if the entries for column 1-2 (
Ticket #, Created On), 4 (
Reported By,) and 6-9 (
IAnswer, Issue Type, Issue, Status) are the same, the duplicates are removed. If you just used Array(
7) then all duplicates in column 7 (
Issue) would be removed.
Hope this fixes it for you (or you an create a column array which does)..