Sayfalardaki Verileri Bir Yerde Toplamak veya Ayırmak

[onurgrn]

Merhabalar,
Yapmak istediğim şey aylara göre ayrılmış sayfalardaki bilgileri "Toplam" sayfasının içerisine de otomatik kaydetmeyi "Ekle" butonuyla sağlamak.
Veya tam tersi de olabilir. Toplam ayının içerisine bilgi girişi yapıldıktan sonra "Ayır" denildiğinde aylara göre ayrı ayrı sayfalar oluşturmak.

Bunun için userform geliştirmeye çalıştım ama çok zaman alacak diye düşündüm. Ama belki de en sağlıklı yöntem bu. O form üzerinden ekle denildiğinde hem toplama hem de ilgili aya bilgiler gidecek.

Bu işlere yeni başladığım için sizden yardım dilemek istedim. Nereden başlayacağımı bilemedim

 

[hamitcan]

Sub birlestir()
    Sayfa1.[a2:j1000].ClearContents
    For Each sh In ThisWorkbook.Sheets
        If sh.Name <> "2010 YILI TOPLAM" Then
            c = [a65536].End(3).Row + 1
            sh.[a2:j1000].Copy Range("a" & c)
        End If
    Next
End Sub
Sub ayir()
    c = 1
    For j = 2 To Sheets.Count
        Sheets(j).[a2:j1000].ClearContents
    Next
    For i = 2 To [i65536].End(3).Row
        ay = StrConv(Format((Cells(i, "i")), "mmmm"), vbUpperCase)
        s = Sheets("" & ay & "" & "-2010").[a65536].End(3).Row + 1
        Sheets("" & ay & "" & "-2010").Rows(s) = Rows(i).Value
    Next
End Sub

 

[onurgrn]

ellerinize sağlık, çok teşekkür ederim.