Makroda hücre değerine göre sayfa seçtirmek

[dekako]

Merhabalar,
Tek sayfadan giriş yaparak verileri daha sonra formülle ilgili sayfalara dağıtıyorum.(Forumdan aldığım yardımlarla yapabildim) Ancak dosyam büyüdükçe program ağırlaştı. Aşagıdaki kodda ilk satırdaki sayfa seçimini bir hücrenin değerine göre yaptırabilirsem sanırım sorunum çözülecek .
Örneğin A1 hücresine 1 değerini girersem , sonraki sütunları (B1,C1,..) "1" isimli sayfaya göndersin.

Yardım edebilirseniz sevinirim..

Sub Düğme5_Tıklat()


Set s = Sheets("Giriş")
Sat = s.[f65536].End(3).Row + 1
s.Cells(Sat, "f") = Sat - 9
s.Cells(Sat, "g") = [c4]
s.Cells(Sat, "h") = [c5]
s.Cells(Sat, "ı") = [c6]
s.Cells(Sat, "j") = [c7]
s.Cells(Sat, "k") = [c8]
s.Cells(Sat, "l") = [c9]
s.Cells(Sat, "m") = [c10]
s.Cells(Sat, "n") = [c11]

Şimdiden tşk.