看起来你的代码里有几个关键问题导致了这个错误，我们一步步来排查和修正：

核心问题分析 #

1. 变量j未初始化：你把j的赋值代码注释掉了，导致j处于未赋值的Empty状态，VBA无法确定粘贴的目标行，这是引发错误的主要原因之一。
2. 错误的工作表引用方式：WBDest.Sheets(WS)是错误写法——WS已经是一个Sheet对象，不需要再用Sheets()包裹，直接引用WS即可。
3. 冗余的对象嵌套：WBDest已被设置为ThisWorkbook，而WS就是该工作簿内的新工作表，直接用WS比多层嵌套引用更直接且不易出错。
4. 可选优化：避开剪贴板的复制粘贴：Copy/PasteSpecial依赖剪贴板，容易被用户操作干扰，直接赋值行值的方式更高效稳定。

修正后的完整代码 #

' 先确保你已经正确定义了以下变量（原代码中应该有这部分逻辑）
' Dim sourceWB As Workbook
' Set sourceWB = Workbooks.Open("你的源文件路径") ' 打开源工作簿
' Dim sourceWS As Worksheet
' Set sourceWS = sourceWB.Sheets("Sheet1") ' 引用源工作表
' Dim LastRow As Long
' LastRow = sourceWS.Cells(sourceWS.Rows.Count, "A").End(xlUp).Row ' 获取源表最后一行

Dim WS As Worksheet
Dim WBDest As Workbook
Dim i As Long, j As Long

With ThisWorkbook
    Set WS = .Sheets.Add(After:=.Sheets(.Sheets.Count))
    WS.Name = PartialName.Value  ' 给新工作表命名
    Set WBDest = ThisWorkbook
    
    ' 初始化j：处理新工作表为空的情况，确定粘贴起始行
    If WS.Cells(WS.Rows.Count, "A").End(xlUp).Row = 1 And WS.Cells(1, "A").Value = "" Then
        j = 1 ' 空表直接从第1行开始
    Else
        j = WS.Cells(WS.Rows.Count, "A").End(xlUp).Row + 1 ' 非空表从最后一行下一行开始
    End If
End With

' 遍历源表，复制符合条件的行到新工作表
For i = 1 To LastRow
    With sourceWS
        If .Cells(i, "A").Value <> 0 Then  ' 可追加其他条件，比如And .Cells(i, 5).Value = "Mike"
            ' 推荐方式：直接赋值（无需剪贴板，高效稳定）
            WS.Rows(j).Value = .Rows(i).Value
            j = j + 1
            
            ' 如果你坚持使用剪贴板复制，修正后的写法：
            ' .Rows(i).Copy
            ' WS.Range("A" & j).PasteSpecial Paste:=xlPasteValues
            ' j = j + 1
            ' Application.CutCopyMode = False ' 清除剪贴板选中状态，避免Excel提示
        End If
    End With
Next i

' 可选：操作完成后关闭源工作簿（按需保存）
' sourceWB.Close SaveChanges:=False

关键修改说明 #

1. 初始化j的逻辑：
   新工作表默认是空的，直接用End(xlUp)会定位到第1行，所以我们加了判断：如果A1是空的，就从第1行开始粘贴，而非第2行，避免出现空行。
2. 修正工作表引用：
   把错误的WBDest.Sheets(WS).Range(...)改成直接引用WS.Range(...)，因为WS已经是目标工作表的对象，无需二次查找。
3. 替换复制粘贴为直接赋值：
   WS.Rows(j).Value = .Rows(i).Value这种方式跳过了剪贴板，运行速度更快，也不会和用户的剪贴板操作冲突，是VBA中复制行值的推荐写法。
4. 明确对象归属：
   所有的Cells、Rows都明确指定了所属工作表（比如WS.Cells、sourceWS.Cells），避免VBA默认引用当前活动工作表带来的意外问题。

额外排查建议 #

• 确认sourceWS和LastRow已正确定义：如果源工作表或最后一行的获取逻辑有问题，会导致循环无法正常执行。
• 调试时用Debug.Print查看变量：比如在循环内加入Debug.Print "复制源表第" & i & "行到目标表第" & j & "行"，能直观看到代码的执行状态，方便定位问题。