Excel VBA Runtime error 1004 Ошибка приложения или объекта

Question

После нажатия кнопки run я продолжал получать ошибку времени выполнения 1004, и коды в скобках ниже подсвечивались. Любой может помочь мне с этим

Private Sub Add_Click()

  Sheet4.Activate 
  (Range("A1").End(x1Down).Offset(1, 0).Select)

  ActiveCell.Value = ActiveCell.Offset(-1, 0).Value + 1
  ActiveCell.Offset(0, 1).Value = TextBox1.Value
  ActiveCell.Offset(0, 2).Value = TextBox2.Value
  ActiveCell.Offset(0, 3).Value = TextBox3.Value
  ActiveCell.Offset(0, 4).Value = ComboBox1.Value
  ActiveCell.Offset(0, 5).Value = ComboBox2.Value
  ActiveCell.Offset(0, 6).Value = TextBox4.Value

End Sub

Answer 1

Чтобы избавиться от ошибки, замените строки 2, 3 и 4 следующим:

Worksheets("Sheet4").Activate 
Range("A1").End(xlDown).Offset(1, 0).Select
ActiveCell.Value = ActiveCell.Offset(-1, 0).Value

Обратите внимание, что End(x1Down) должен быть написан как End(xlDown) , что также было предложено @AKINA в комментариях выше.