Code not working!

This usually happens when the last row is not properly defined. Try this:

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 mysheets - 1
destrng = Sheets(1).Range("A65536").End(xlUp).Row + 1
srcrng = Sheets(I).Range("A65536").End(xlUp).Row
Sheets(I).Range("A1:I" & srcrng).Cut Destination:=Sheets(1).Range("A" & destrng)

Next I

End Sub