Sayfa adına göre aktarma

[aydgur]

A sütunundan O sütunu dahil ne varsa hepsini A2 den itibaren a sütunundaki sayfa adlarına göre sayfalara aşağıdaki makro yardımı ile aktarabiliyordum ancak şimdi bir türlü bitmek bilmiyor ;
bunu için yeni bir makro yardımı yada bu makroyu düzeltebilmek için yardım rica ediyorum.Bugün bitirebilmeme yardımcı olursanız mükemmel olur.Teşekkürler.

Sub sayfalaraaktar()
Sheets("SATIŞ").Select
For x = 2 To [a1000].End(3).Row
Set s2 = Sheets(Cells(x, 1).Text)
sira = s2.[a1000].End(3).Row + 1
For y = 1 To 14
s2.Cells(sira, y) = Cells(x, y + 1)
Next y
Next x
Sheets("SATIŞ").Select
Range("A2:O80").ClearContents

10 MsgBox "CARİ SAYFALARA AKTARILDI"
End Sub
Bu makroyu çalıştırdığımda durmak bilmiyor ESC yapınca makroda "Next y " hatalı veriyor(yani sarı renk alıyor) ne yapabilirim

 

[Levent Menteşoğlu]

Kodda kısır döngüye girecek bir durum göremedim. Sadece aşağıdaki satıra mavi renkli ilaveyi yapmanızı öneririm.

Set s2 = Sheets([COLOR=blue][B]"" &[/B][/COLOR] Cells(x, 1).Text)