Sub AAA() Workbooks("book1").Sheets("sheet1").Rows(5).Cut Workbooks("book2").Sheets("sheet1").Range("A65536").End(xlUp).Offset(1).Insert Workbooks("book1").Sheets("sheet1").Rows(5).DeleteEnd Sub