如何使用VBA和公式进行计数

Question

我正在使用以下代码，该代码将在2张纸之间复制和粘贴数据。它将复制特定范围并将其粘贴到下一张工作表中最后一个可用的空白工作表中。

     Dim last as long
     Sheets("sheet1").Range("A1:G100").copy
     With sheets("sheet2")
         Let = .range("A" & Rows.Count).end(xlup).row+1
         .range("A" & lst).paste special xlpastecolumnwidths
         .range("A" & lst).pastespecial xlpastecolumnwidths
     End with 
 End sub

我想以某种方式更改此设置，以便它将复制具有提供计数的特定范围内的数据。例如，如果分配范围是A1：G100。并且单元格H1中的计数为16（16已基于某个公式），则它仅应为A1：G16复制16条记录。我尝试链接活动工作表的票数，但是它不起作用。