模拟Ctrl +向下箭头

创build一个表并插入两行数据，然后将8个空行插入表中

ThisWorkbook.ActiveSheet.Cells.Range("A1").Select Selection.End(xlDown).Select MsgBox Selection.row 

返回第3行

 ThisWorkbook.ActiveSheet.Cells.Range("A1").End(xlDown).row 

返回第11行

结束方法行为不同，我怎样才能使其行为像select版本？
编辑：一个更多的细节，ClearContents然后用VBA插入行