#2194
Egy másik megoldás, ahol a B5:B8 tartományt másoljuk a CC1:CC4-be, majd a szűrés végrehajtása után innen illesztjük be a B5:B8-ba az eredeti formátumot.
Sub Szures()
Range("B5:B8").Copy Range("CC1")
Range("B6:B8").ClearContents
Range("G9:G69").AdvancedFilter Action:=xlFilterCopy, _
CopyToRange:=Range("B5"), Unique:=True
Range("CC1:CC4").Copy
Range("B5").PasteSpecial xlPasteFormats
End Sub