Code not working!

I created the following macro that will cut and paste info in every sheet of a workbook into the first one.

Sub CutNPasteSheets()
'
' This macro selects from worksheet 2 to the end-1 columns A to I and cut and paste the content
' to the first sheet of the workbook

    Dim I As Integer
    Dim mysheets As Integer
    
    mysheets = Sheets.Count
        
    
  For I = 2 To I = mysheets - 1
    
    Sheets(I).Select
    Range("A1:I1").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Cut
    
    Sheets(1).Activate
    ActiveCell.Range("A1").Select
    Selection.End(xlDown).Select
    ActiveCell.Offset(1, 0).Range("A1").Select
       
    
    ActiveSheet.Paste
    Selection.End(xlDown).Select
    
  Next I

End Sub

I used Ctrl F8 to follow through to find out what it does nothing! and I still don't understand what I am doing wrong. It goes well until the loop start, then nothing happens.

Please help