Verileri kritere göre başka sayfaya aktarma ve sıralama

[yyhy]

Veri satırları aşağıya doğru uzamaktadır.
Verileri Kriter olarak Sonuç başlığında DEVAM EDEN satırları Liste sayfasına H başlığına göre 1.Grup, 2.Grup ve 3.Grup a göre sıralatmak istiyorum. Veri aralığı değişmektedir. Son veriyi baz alarak işlem yapılabilir mi?
Veri sayfasından verileri Veri süze göre alıp liste sayfasında sıralatabilirim ama macro ile işi kolay bir şekilde tıkladığım zaman aktarsın istiyorum. Liste sayfasından da farklı bir şablona göre otomatik yazdırma yapacağım. Yardımcı olan arkadaşlara teşekkür ederim.

 

[veyselemre]

Sub test()
    Dim sV As Worksheet, sL As Worksheet, son&
    Set sV = Sheets("Veri")
    Set sL = Sheets("Liste")

    son = sV.Cells(Rows.Count, 1).End(3).Row
    sL.Range("B2:L" & Rows.Count).Clear
    sV.Range("A2:J" & son).Copy sL.Range("C2")
    sL.Select
    Columns("C:L").AutoFilter
    ActiveSheet.Range("$C$1:$L$" & son).AutoFilter Field:=9, Criteria1:="<>DEVAM EDEN"
    Range("C2:L" & son).SpecialCells(xlCellTypeVisible).EntireRow.Delete
    Columns("C:L").AutoFilter
    son = Cells(Rows.Count, 4).End(3).Row
    Range("C1:L" & son).Sort [j2], , , , , , , xlYes
    [b2] = 1
    [b3] = 2
    Range("B2:B3").AutoFill Destination:=Range("B2:B" & son)
End Sub

 

[yyhy]

Çok teşekkür ederim sayın veyselemre ihtiyaca cevap verdi. Emeğinize sağlık.

 

[muygun]

Merhaba;
Syn. veyselemre sorunu çözümlemiş ama
Hazırladığım ek alternatif olsun.
İyi çalışmalar.

 

[yyhy]

Sayın muygun ilginiz için teşekkür ederim.