Run time Error 1004

[önder34]

Merhaba arkadaşlar daha önce kulandığım sayfalara dağıtma kodunda hata kodu alıyorum sayfa isimlerinin olduğu satırı sarıya boyuyor .Çözemedim yardımlarınız bekliyorum Excel dosyamda "o" isimli sayfaya kadar sayfam var.
Sub Sayfalara_Dağıt()
Dim Sayfa As Variant, i As Long, son As Long, S1 As Worksheet
Set S1 = Sheets("Sayfa6")
For i = 1 To Worksheets.Count
If Sheets(i).Name <> "Sayfa6" Then
Sheets(i).Range("A365536").ClearContents
End If
Next i

For i = 3 To S1.[E65536].End(3).Row
Sayfa = S1.Cells(i, "E")
son = Sheets(Sayfa).[B65536].End(3).Row + 1
Sheets(Sayfa).Cells(son, "A") = son - 2
S1.Range("B" & i & ":C" & i & "" & i & ":E" & i & ":F" & i & ":G" & i & ":H" & i & ":I" & i & ":İ" & i & ":J" & i & ":K" & i & ":L" & i & ":M" & i & ":N" & i).Copy Sheets(Sayfa).Cells(son, "B")
Next i

MsgBox "Aktarım tamamlandı."
End Sub

 

[Levent Menteşoğlu]

Aşağıdaki gibi bir sütun Excelde bulunmaz. Range içindeki bu kısmı silin.

":İ" & i