Sn:derebeyi
Rapor sayfası oluşturarak yada sayfalarınız sabit ise Rapor yerine kendi sayfa adını yazarak kodu kendinize göre düzenleyiniz.

Private Sub CommandButton1_Click()

Dim sh1 As Worksheet, sh2 As Worksheet

Set sh1 = Sheets("Kesin")

Set sh2 = Sheets("Rapor")

sh2.Range("A3:H65536").ClearContents

sh1.Range("A1").AutoFilter

sh1.Range("A1").AutoFilter Field:=1, Criteria1:=">1", Operator:=xlAnd, Criteria2:="<12"

sh1.Range("A1").AutoFilter Field:=2, Criteria1:="SK", Operator:=xlAnd

sh1.Range("A1").CurrentRegion.Copy sh2.Range("A1")

sh1.Range("A1").AutoFilter

End Sub