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