Advanced filter, unique values with criteria

[sharky12345]

Can someone show me how to adapt this code so that it only copies unique values where the cell in column C matches the value of Sheet4 E2?

LastRow = Sheet7.Cells(Rows.Count, "A").End(xlUp).Row
Sheet7.Range("D3:D" & LastRow).AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Sheet4.Range("E4"), Unique:=True

 

[sharky12345]

Or can it be achieved through a formula?