Cells(Rows.Count, 1).End(xlUp).Row的含义

 NextRow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row + 1

    这句话的意思是 取活动单元表的第一列最后一个有值的行的下一行行号。

ActiveSheet为当前活动表格