Sekmedeki bilgileri diğer sekmelere kopyalama

[bastug2000]

İlk sekmemdeki tabloyu diğer 15 sekmeye otomatik nasıl kopyalarım.
İlk sekmemde formüller falan var.
Bu işlemi yaparken biçimide koruyabiirmiyiz.
Örn arada gizli olanlar yine gizli kopyalansın...

Çok teşekkürler.

 

[bastug2000]

Private Sub CommandButton1_Click()

Application.ScreenUpdating = False
For a = 1 To Sheets(1).[a65536].End(3).Row
Sheets("sayfa1").Copy After:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = Sheets(1).Cells(a, "a")
Next

End Sub

İle Sayfamı çoğaltıp kopyalayabiliyorum.
Fakat şuradan şuraya kadar olanı çoğalttığım sayfalara kopyala diyemedim.
Örn: (G12;K17) arasını kopyalasın.

 

[bastug2000]

Sheets("sayfa1").Range("G12:K17").Copy After:=Sheets(Sheets.Count)

yapıyorum olmuyor.