Sayfadaki Satırları İlgili Sayfalara Dağıtmak! Yardım!

Private Sub CommandButton1_Click()
Sayfa2.Range("A2:E3000").ClearContents   'Sayfa2 A2:E1000 aralığının içeriğini temizle. biçimlendirmeyi korur.
Sayfa3.Range("A2:E3000").ClearContents
Application.CutCopyMode = False

Dim ss, ptrGorevde, ptrAyrildi As Integer   ' Maksimum 32768
ss = Sayfa1.Range("A10000").End(xlUp).Row
ptrGorevde = Sayfa2.Range("A10000").End(xlUp).Row + 1
ptrAyrildi = Sayfa3.Range("A10000").End(xlUp).Row + 1
For i = 2 To ss
    If Sayfa1.Range("E" & i) = "Görevde" Then
        Sayfa1.Range("A" & i & ":E" & i).Select
        Selection.Copy
        Application.Goto (Sheets("Görevde").Cells(ptrGorevde, 1))
        ActiveSheet.Paste
        Sheets("Liste").Activate
        ptrGorevde = ptrGorevde + 1
    ElseIf Sayfa1.Range("E" & i) = "Ayrıldı" Then
        Sayfa1.Range("A" & i & ":E" & i).Select
        Selection.Copy
        Application.Goto (Sheets("Ayrıldı").Cells(ptrAyrildi, 1))
        ActiveSheet.Paste
        ptrAyrildi = ptrAyrildi + 1
        Sheets("Liste").Activate
        
    Else
        MsgBox i & " nolu satırda DURUM bilgisinde hata var." & vbCrLf & _
        "Başında, sonunda boşluk olabilir, yazım hatalarını kontrol ediniz."
    End If
Next i
Application.CutCopyMode = False
End Sub