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
Bookmarks