嘿Gary，我来帮你解决这个宏的问题！咱们先从你现有代码的bug说起，再一步步改成你想要的自动接续粘贴的版本。

首先，现有代码的问题在哪？ #

你加了PasteSpecial后宏跑不起来，是因为语法写错了：

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNoneActiveSheet.Paste

这里把Operation:=xlNone和多余的ActiveSheet.Paste混在一起了，这部分语法错误直接导致宏崩溃。正确的写法应该是去掉ActiveSheet.Paste，只保留：

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone

不过这只是解决了粘贴值的问题，还没实现每次接续上次位置粘贴的核心需求，接下来咱们改造宏。

改造后的完整宏代码（自动接续版本） #

这个版本会自动找到目标区域的下一个空行，每次运行都接续在上次粘贴的内容后面，而且全程不用Select/Activate（Excel宏里尽量少用这些，容易出各种奇怪问题）：

Sub CopyPaste_Weeklys()
    Dim sourceRange As Range
    Dim targetStartCell As Range
    
    ' 1. 定义要复制的源区域（就是你每周要复制的D7:J13）
    Set sourceRange = Sheets("MI Build").Range("D7:J13")
    
    ' 2. 找到D列最后一个有内容的单元格，向下偏移1行作为新的粘贴起始点
    ' 相当于手动按Ctrl+↑找到最后一行，再往下挪一行
    Set targetStartCell = Sheets("MI Build").Cells(Rows.Count, "D").End(xlUp).Offset(1, 0)
    
    ' 3. 复制源区域的值到目标位置
    sourceRange.Copy
    targetStartCell.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone
    
    ' 4. 取消复制模式，避免剪贴板一直保留内容
    Application.CutCopyMode = False
    
    ' 可选：加个提示框，告诉你操作完成了
    MsgBox "本周数据已成功粘贴！", vbInformation
End Sub

额外优化：确保第一次从D21开始粘贴 #

如果你的表格里D列前面可能有内容，想强制第一次粘贴从D21开始，之后再自动接续，可以用这个版本：

Sub CopyPaste_Weeklys()
    Dim sourceRange As Range
    Dim targetStartRow As Long
    
    Set sourceRange = Sheets("MI Build").Range("D7:J13")
    
    ' 获取D列最后非空行的行号
    targetStartRow = Sheets("MI Build").Cells(Rows.Count, "D").End(xlUp).Row
    
    ' 判断：如果最后非空行小于21，就从21行开始；否则从下一行开始
    If targetStartRow < 21 Then
        targetStartRow = 21
    Else
        targetStartRow = targetStartRow + 1
    End If
    
    ' 复制值到目标区域
    sourceRange.Copy
    Sheets("MI Build").Range("D" & targetStartRow).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone
    
    Application.CutCopyMode = False
    MsgBox "本周数据已成功粘贴！", vbInformation
End Sub

为什么这个版本好用？ #

• 解决了粘贴公式的问题：用xlPasteValues只粘贴数值，不会带公式
• 自动接续位置：每次运行都会找到下一个空行，不用手动改目标区域
• 更稳定：避免了Select/Activate操作，减少宏运行时的报错概率

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