run-time error '1004' (Application-defined or object-defined error)

[Oldy7]

С *csv пока не экспериментировал. По копированию на лист "Placement_Form" стойко вылезает ошибка 1004.
В последний опробованный вариант по решению этой проблемы:

    With Sheets("asd")
            .Range(.Rows(10), .Rows(17)).Copy Destination:=Sheets("Placement_Form").Range(Cells(2, 5))
        End With

Т.е. пытался переместить весь массив данных. Не удалось.

Очистка работает исправно.

[Hugo121]

Ну так нужно всегда указывать, чьи cells перебираете.
Попробуйте так:

    With Sheets("ctok")
        Set rr = .Range(.Cells(num, 1), .Cells(num, 7))
    End With
    With Sheets("asd")
        rr.Copy .Range(.Cells(dels, 10), .Cells(dels, 17))
    End With
    With Sheets("Placement_Form")
        rr.Copy .Range(.Cells(dels, 10), .Cells(dels, 17))
    End With

Вернее так:

    With Sheets("ctok")
        Set rr = .Range(.Cells(num, 1), .Cells(num, 7))
    End With
    rr.Copy Sheets("asd").Cells(dels, 10)
    rr.Copy Sheets("Placement_Form").Cells(dels, 10)

[Oldy7]

Это сработало. Спасибо!

[VictorM]

По копированию на лист "Placement_Form" стойко вылезает ошибка 1004.

Да, недосмотрел. Нужно написать так

With Sheets("ctok")
            .Range(.Cells(num, 1), .Cells(num, 7)).Copy Destination:=Sheets("asd").Range(Cells(dels, 10), Cells(dels, 17))
            .Range(.Cells(num, 1), .Cells(num, 7)).Copy Destination:=Sheets("Placement_Form").Range(Sheets("Placement_Form").Cells(dels, 10), Sheets("Placement_Form").Cells(dels, 17))
        End With

Только выскочит опять в ошибку.
Нужно разъдинить объединенные ячейки на листе Placement_Form
Хотя у Hugo121 все это красивше сделано)