按顺序循环遍历除摘要和复制粘贴数据以外的工作表，粘贴时出现438错误？下面附加的代码

Sub LoopAndPaste()
    Dim ws As Worksheet
    Dim targetSheet As Worksheet

    Set targetSheet = ThisWorkbook.Worksheets("目标工作表")
    
    For Each ws In ThisWorkbook.Worksheets
        ' 跳过摘要和复制粘贴数据的工作表
        If ws.Name <> "摘要工作表" And ws.Name <> "复制粘贴数据工作表" Then
            ws.Activate ' 激活当前工作表
            ws.UsedRange.Copy ' 复制当前工作表的数据
            
            On Error Resume Next ' 忽略下面一行代码可能引发的错误
            targetSheet.Paste Destination:=targetSheet.Cells(targetSheet.Cells(Rows.Count, 1).End(xlUp).Row + 1, 1) ' 在目标工作表中粘贴数据
            On Error GoTo 0 ' 恢复错误处理
            
            ' 检查粘贴是否成功
            If Err.Number <> 0 Then
                MsgBox "粘贴时发生错误：" & Err.Description ' 显示错误信息
                Exit Sub ' 退出子过程
            End If
            
            Application.CutCopyMode = False ' 清除剪贴板的内容
        End If
    Next ws
End Sub