取得指定列的第一个可用空白行的行号

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

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

Rows.Count是指当前活动工作表的行数，为数字 1048576，很熟悉的一个数字，为Excel工作表的最大行数

Cells(Rows.Count, 1)，则是定位到第一列的最后一行cell，即单元格“A1048576”

主要是End(xlUp)比较难理解。
Range.End属性是返回一个 Range 对象，该对象代表包含源 区域的区域尾端的单元格。
End(xlUp)等同于End mode下+UP键，或Ctrl+Up，
若活动单元格为空，其上一个单元格也为空，将会向上寻找该列第一次出现的非空单元格；
若活动单元格非空，其上一个单元格也非空，将会选中活动单元格所在列的最后一个非空单元格；
其上一个单元格为空，将继续向上寻找该列第一次出现的非空单元格，直到第一个单元格为止，如A1。

另外三个XlDirection常量为xlDown, xlToRight, xlToLeft 功能分别为 End+DOWN, END+RIGHT, END+LEFT.

这样Cells(Rows.Count, 1).End(xlUp) 就是沿着单元格“A1048576”向上寻找第一列第一次出现的非空单元格。
连起来Cells(Rows.Count, 1).End(xlUp).Row， 就是取第一列第一次出现的非空单元格的行号
ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row + 1，自然就是取该非空单元格的下面的空单元格，以便进行输入等操作。

比如下面实例，将把数据插入到工作表中的系一个空白行，这里A7为下一个空白行。

Sub KK()
  Range("C1") = Range("a65536").End(xlUp)      '从单元格A65536向上查找第一个有内容的单元格的内容
  Range("C2") = Range("a65536").End(xlUp).Row  '从单元格A65536向上查找第一个有内容的单元格的行号
End Sub