50 satırda bir derken, ilk 50 satırdaki veriyi ikinci sayfadadaki A1 hücresine, aralarında - olacak şekilde, 51-100 arasını A2, ... şeklinde mi olacak?
edit: @azizakin
eksisozluk.com lazım olur.
---
eğer düşündüğüm gibiyse:
For i = 1 To 10
k = 50 * (i - 1)
For j = 1 To 50
Sheets("Sayfa2").Cells(i, 1) = Sheets("Sayfa2").Cells(i, 1) & Sheets("Sayfa1").Cells(k + 1, 1) & " - "
k = k + 1
Next
Next
not: "Sayfa1" ve "Sayfa2" yerlerine sizin kitaptaki sayfa isimleri gelmeli. ilk satırdaki "For i = 1 To 10" ifadesindeki değeri toplan satır sayısının 50'de 1'i olarak değerlendirmeniz gerekir. 1000 satır varsa oraso 20 olacak mesela.
sonuç:
i.imgur.com 
(farklı sayfalarda düşünün)