" dediğini duyar gibiyim .Programcılık tecrüben varsa biraz uğraşarak amacına ulaşırsın sanırım.dediğin gibi oluyor ama sayfa sayısını (daha doğrusu adını) ve yapıştıracağım yerin adını otomatik olarak arttıracak bir döngü lazım. şimdilik elle yapacağız ne yapalım..Sheets("Sheet63").Select ' sheet 63 seçili
Rows("2:58").Select '2. satırdan 58. satıra kadar seçili
Selection.Cut 'kes
Sheets("Sheet1").Select 'sheet 1 seçili
ActiveWindow.SmallScroll Down:=9
Rows("3536:3536").Select '3536 yapıştırmaya başlayacağı satır numarası
ActiveSheet.Paste
For i = 1 to 100
sayfa_adi = "Sheet"+i
Sheets(sayfa_adi).Select
Next
