非VBA方式将基于单击的行复制到范围中的最后一行

Question

我一直在网上寻找一种方法来做到这一点，但还没有运气。 我正在寻找一种方法将我的Excel文件保存为xlsx而不是xlsm。只是因为我无法将文件作为xlsm在我的Android选项卡上运行。

我使用的唯一宏是：

Sub CommandButton1_Click()
Application.ScreenUpdating = False
Dim copySheet As Worksheet
Dim pasteSheet As Worksheet

Set copySheet = Worksheets("Sheet1")
Set pasteSheet = Worksheets("Sheet1")

copySheet.Range("a14:j14").Copy
pasteSheet.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub

它只复制一行并将其粘贴到最后一个空白行中。

我有没有办法在不使用VBA的情况下完成此任务，以便文件可以保存为xlsx并可以在Android选项卡上访问？

感谢您的时间