"400"er - Fehler ??? Was heisst das??

Sub ZeilenOrdnen()
Dim Zeile As Variant, Zeile2 As Variant
Application.ScreenUpdating = False
Zeile = 13
Zeile2 = 13
Do While Not Range("c" & Zeile).Value = "Summe:"
If Range("b" & Zeile).Value = "FP" And Range("c" & Zeile).Value >= 1 Then
Range("a" & Zeile & ":g" & Zeile).Select
Selection.Copy
Range("I" & Zeile2).Select
ActiveSheet.Paste
Application.CutCopyMode = False
Zeile2 = Zeile2 + 1
End If
Zeile = Zeile + 1
Loop
Range("A1").Select
Application.ScreenUpdating = True
End Sub