Ошибка метода PasteSpecial класса Range в цикле 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