Makro ile bulma,satırı kesip bir sonraki sayfaya yapıştırma.

[korel durmaz]

Merhabalar, amacım 10 uncu (K) sütun'da 1'den 365'e kadar değerleri olan verilerimi, 10'uncu sütun değeri 1 ise; 1 inci sayfaya 2 ise; 2'inci sayfaya 365 ise 365 inci sayfaya göndermektir. Bununla ilgili makromu yazdım ancak aşağıdaki makroda ???? işaretli kısma ne yazacağımı bilmiyorum bu kısımda amacım K sütünunda 2 ile başlayan ilk terimi bulsun o satır ve ondan sonraki satırların tamamını keserek 3 üncü sayfaya yapıştırsın ve döngü 365'e kadar devam etsin....




Sub KES()
'
' KES Macro
'
For i = 1 To 365

Sheets(i).Select
Columns("K:K").Select
????????????????????????????????

Range(Selection, Selection.End(xlDown)).Select
Selection.Cut
Sheets(i + 1).Select
Rows("2:2").Select

ActiveSheet.Paste
Next i

End Sub