如何用VBA自动将两行模板复制到Excel下一个可用空白区域？

问题场景 #

我正在制作适配横向8×11.5英寸页面的窗户订单表单，表单采用两行一组的模板（对应工作表A3:R4区域），每个单元格都配置了专属的数据验证下拉菜单。目前使用固定位置的VBA代码复制模板：

Sub CopyTemplate()
    Worksheets("WINDOW TEMPLATE").Range("A3:R4").Copy Range("A5:R6")
End Sub

但每次新增模板都需要手动修改目标区域，希望能让代码自动定位下一个可用的空白行，实现每次都将模板复制到当前最后一组模板的下方（比如第一次到A5:R6，下一次自动到A7:R8，以此类推）。之前尝试用.End方法时会直接跳到工作表底部，无法正确定位有效空白行。

解决方案代码 #

Sub CopyTemplateAuto()
    Dim ws As Worksheet
    Dim lastUsedRow As Long
    Dim targetStartRow As Long
    
    ' 指定操作的工作表
    Set ws = ThisWorkbook.Worksheets("WINDOW TEMPLATE")
    
    ' 精准定位A列最后一个有数据的行
    lastUsedRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    
    ' 计算模板复制的起始行：在最后一行的下一行开始
    targetStartRow = lastUsedRow + 1
    
    ' 复制两行模板到目标区域
    ws.Range("A3:R4").Copy ws.Range("A" & targetStartRow & ":R" & targetStartRow + 1)
End Sub

代码说明 #

• 通过Cells(ws.Rows.Count, "A").End(xlUp).Row定位A列最后一个非空行，避免了直接跳到工作表底部的问题
• 目标起始行直接取最后一行的下一行，保证每次都追加到现有模板的下方
• 复制操作会保留原模板的所有格式、数据验证规则，无需额外设置

内容的提问来源于stack exchange，提问作者hamsterdam