Verileri yeni bir sayfaya aktarma yardım

[aLLyy07]

Merhabalar
Benim sorunum nerdeyse hergün hazırladığım ekteki dosya. Bu dosyada yapmak istediğim bu bütün sayfalardaki istediğim hücreleri yeni bir sayfaya aktarma b ve c d ve e sütünlari birlesiktir bu sütunlaradki verileri de kopyalamak istiyorum ekteki dosyada örnek olarak 60. satırdaki yaşam hattı ve yanindaki sütunudaki 1 i nasıl alabilirim örnek olarak gösterebbilirseniz ben diğerlerini devam ettirebilirim. yanlız çalısma dosyasındaki bütün sayfalarin istedim hücrelerini kopyalamak istiorum.teşekkürler.

 

[Orion1]

Aktar butonuna basın ca D60 ve F60 hücrelerini Yeni sayfada d60 ve F60 hücrelerine aktarıyor.
Dosya ekte.

Sub Düğme19_Tıklat()
Sheets("Yeni_sayfa").Range("D60") = Range("D60")
Sheets("Yeni_sayfa").Range("F60") = Range("F60")
End Sub