Range类的PasteSpecial方法在for循环中失败

Question

编写宏以特定的格式将单元格复制到不同的工作簿中。每次运行代码时都会在不同的行出现错误

我尝试取消隐藏单元格的选择

For i = 1 To lastrow
    If IsEmpty(ThisWorkbook.Sheets("Summary").Range("A" & i).Value) = False Then
        If ThisWorkbook.Sheets("Summary").Range("A" & i).Font.Bold = True Then
            'Range("A" & i).Copy Range("B" & i)
            Set BoldTitle = ThisWorkbook.Sheets("Summary").Range("A" & i)
            x = i
        Else
            ws.Range("A" & i).Value = "Winter I"

            BoldTitle.Copy
            ws.Range("B" & i).PasteSpecial xlPasteValues

            ThisWorkbook.Sheets("Summary").Range("A" & i).Copy
            ws.Range("C" & i).PasteSpecial xlPasteValues

           ThisWorkbook.Sheets("Summary").Range("B" & i).Copy
            ws.Range("D" & i).PasteSpecial xlPasteValues

            ThisWorkbook.Sheets("Summary").Range("C" & i).Copy
            ws.Range("E" & i).PasteSpecial xlPasteValues

            ThisWorkbook.Sheets("Summary").Range("D" & i).Copy
            ws.Range("F" & i).PasteSpecial xlPasteValues
        End If
    Else
    End If
Next i