Dim rData As RangeDim Lst As Long, LRow As Long
LRow = Range("W" & Rows.Count).End(xlUp).Row
Range("V18:Y" & LRow).ClearContents
Set rData = Range("A18", Range("B" & Rows.Count).End(xlUp))
rData.AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range("W18"), Unique:=True
With...