Заполните указанные c ячейки до последней строки в другом листе в той же книге

Question

вставляет значение, но не в последние строки в листе (List), END (xlDown) .offset (1) останавливает макросы и делает его cra sh, я получаю ошибку 1004, объект не определен.

Может кто-нибудь помочь мне улучшить этот код>

Private Sub CommandButton2_Click()

Dim ws As Worksheet
Set ws = ActiveSheet

Worksheets("FORM").Range("B7").Copy
Worksheets("List").Range("B7").End(xlDown).Offset(1).PasteSpecial xlPasteValues
Worksheets("FORM").Range("D7").Copy
Worksheets("List").Range("C7").PasteSpecial xlPasteValues
Worksheets("FORM").Range("G7").Copy
Worksheets("List").Range("D7").PasteSpecial xlPasteValues
'second line in the same row'
Worksheets("FORM").Range("A8").Copy
Worksheets("List").Range("F7").PasteSpecial xlPasteValues
Worksheets("FORM").Range("E8").Copy
Worksheets("List").Range("G7").PasteSpecial xlPasteValues
Worksheets("FORM").Range("H8").Copy
Worksheets("List").Range("H7").PasteSpecial xlPasteValues
Worksheets("FORM").Range("K8").Copy
Worksheets("List").Range("I7").PasteSpecial xlPasteValues

End Sub 

Answer 1

Это потому, что вы используете Worksheets("FORM"), когда вы должны использовать Sheets("FORM") Кроме того, когда вы используете .Offset(), вам нужно указать номера строк и столбцов, которые вы хотите сместить - так что .Offset(1,0) в твоем случае я представляю. Если вы сделаете эти изменения, ваш код должен работать.