Move rows only does the first one

i got it working now...somehow

'move all rows with errors to the errors sheet
   Sheets("ImportSheet").Select
   lastrowE = Sheets("ERRORS").UsedRange.Rows.Count + 1
   lastrowI = Sheets("ImportSheet").UsedRange.Rows.Count
   firstrowI = 5
For x = lastrowI To firstrowI Step -1
    If Cells(x, 35) <> "" Then
    Rows(x & ":" & x).Select
    Application.CutCopyMode = False
    Selection.Cut
    Sheets("ERRORS").Select
    Rows(lastrowE & ":" & lastrowE).Select
    ActiveSheet.Paste
    lastrowE = lastrowE + 1
    Sheets("ImportSheet").Select
    Rows(x & ":" & x).EntireRow.Delete
    End If
Next x