非VBA的方式来复制一行，基于点击，到一个范围的最后一行

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

我正在使用的唯一的macros是这样的：

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选项卡上访问？

感谢您的时间