Adı rakam olan sayfaya aktarma

[aydgur]

Sub sayfalaraaktar12()
Sheets("BANKA").Select
For X = 2 To [A65536].End(3).Row
Set s2 = Sheets(Cells(X, 1).Text)
sira = s2.[A65536].End(3).Row + 1
For y = 1 To 6
s2.Cells(sira, y) = Cells(X, y + 1)

Next y
Next X
Sheets("BANKA").Select
Range("A2:F200").ClearContents


10 MsgBox "BANKALARA AKTARILDI"
End Sub
yukarıdaki formül ile hesap no sütunundaki sayfalara C,D,E ve F sütunundaki bilgileri yollayamıyorum.yardımcı olurmususnuz

 

[aydgur]

Meşgul ettiğim için kusura bakmayın yaptım.