Excel Vba-复制行号

我对VBA非常陌生，我正在尝试使用宏查找工作表中的下一个空行，然后复制行号，然后将该值粘贴到另一个工作簿中

这就是我所能做到的

Sub Retrieve_Row_Number ()

Dim erow As Integer

erow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row

Workbooks.Open "\\hamfile\public\(P) Maintenance\MJR_Status.xlsm", ReadOnly
ActiveSheet.Cells(erow, 1).Select

我见过ActiveCell.Row函数与MsgBox一起用于显示行号，但我想复制它，以便将其用作粘贴到第二个工作表中的单元格值

---

如果有人能给我代码将所选行的行号复制到剪贴板，我将不胜感激

尝试使用以下代码：

Sub RowAdd()

Dim eRow As Integer
ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Select
eRow = ActiveCell.Offset(1, 0).Row
Workbooks.Open "\\hamfile\public\(P) Maintenance\MJR_Status.xlsm", ReadOnly
ActiveSheet.Cells(eRow, 1).Select

End Sub