VBA：将数据复制到新工作表中，同时保持相对性

Question

我的excel文件中有两张纸-一张由客户的后端数据（日期，数量，费率等）组成，另一张是摘要表，该表仅在交易为'OPEN'时列出此信息。因此，“后端数据”表中有一列说明事务是否已打开，如果已打开，则将其复制到“摘要”表中。因此，摘要表基本上具有变化的行数。这是我的代码（PS。它可以工作）。如果事务是OPEN，则此代码基本上将复制粘贴信息；如果事务不再是OPEN，则此代码删除信息，然后删除任何空白行。

我的主要问题是：

1. 我希望这段代码是相对的，这样我就可以在摘要表的上方和下方插入行，而不会影响数据。
2. 如果“摘要表”之外存在数据，我不希望将其删除。基本上，我希望代码仅在特定的单元格范围内起作用（命名范围会有所帮助吗？）

---

   <fieldType name="edgytext" class="solr.TextField" positionIncrementGap="100">
 <analyzer type="index">
   <tokenizer class="solr.KeywordTokenizerFactory"/>
   <filter class="solr.LowerCaseFilterFactory"/>
   <filter class="solr.WordDelimiterFilterFactory" />
 </analyzer>
 <analyzer type="query">
   <tokenizer class="solr.KeywordTokenizerFactory"/>
   <filter class="solr.LowerCaseFilterFactory"/>
 </analyzer>
 </fieldType>