用VBA语句在EXCEL中选定由上向下的第一个空白单元格

我的目的是，要在这行里A列输入=日期， B列输入=事件，C列输入=人员。

---

以A 列为例子
set f=application.worksheetfunction
if cells(f.counta(range("a:a"))+1,1)="" then
msgbox("第一个空行是第"迟握御 & f.counta(range("a:a"))+1 & "行")
else
msgbox("数据不连码岩续，中间有空皮悔白行，请确认！")
endif

---

range("a1").end(xldown).select

---