Aynı sayfada 4 sütuna göre benzersiz kayıtlar

[hsayar]

Sub XXX_udentr2002()
Sheets("Sayfa7").Select
    Cells.Select
    Selection.ClearContents
    
    Range("A1").Select
    Sheets("TABLOM").Columns("A:E").AdvancedFilter Action:=xlFilterCopy, _
        CopyToRange:=Range("A1"), Unique:=True

End Sub

şimdi bu kodları kullanıyorum TABLOM adlı sayfada A:E kolonlarındaki benzersiz kayıtlar sayfa7 a1 deb itiabren yapıştırıyor. ama bu işi yine
tablom adlı sayfada a2 den itibaren yapıştırtmak mümkün olurmu.