AdvancedFilter de Başlık olmasın demek.

[hsayar]

Sub benzersiz2()
1  Dim shT, shR As Worksheet
2  Set shR = Sheets("Sayfa1"): Set shT = Sheets("TABLOM")

'Tablo sayfasının A Sütunundan benzersiz Bütçe yıllarını al _
     Bu sayfadaki B sütuna, Edeki son satırı kontrol ederek _
     benzersizleri yapıştır.
3 sonsatBnsiz = shT.Cells(65536, "A").End(3).Row
4  sonsatBnsiz2 = shR.Cells(65536, "E").End(3).Row
5 shT.Range("A1:A" & sonsatBnsiz).AdvancedFilter Action:=xlFilterCopy, CopyToRange:= _
   shR.Range("B" & sonsatBnsiz2 + 2), Unique:=True

 'Yapıştırdıklarını sırala
6   sonsatSrla = shR.Cells(65536, "B").End(3).Row
7   shR.Range(Cells(sonsatBnsiz2 + 2, "B"), Cells(sonsatSrla, "B")).Sort _
        Key1:=shR.Cells(sonsatBnsiz2 + 2, "B"), Order1:=xlAscending, _
        Header:=xlGuess, OrderCustom:=1, MatchCase:=False, _
        Orientation:=xlTopToBottom, DataOption1:=xlSortNormal
End Sub

Merhaba Arkadaşlar , Yukarıdaki kodlar ile bir sayfadan diğer sayfaya A sütununda kullanılmış benzersiz kayıtları taşıyorum.(Bknz Kodlar 5. satır) Ancak Başlık gelsin istemiyorum öneriniz nedir.

ben a2:a65536 diyorum bu sefer A2 deki değeri başlık olarak alıyor.