Не понимаю в чем ошибка. Помогите пожалуйста, весь инет облазил - вопрос №3651277

Вот такая форма: https://imgur.com/kG2PX0D
Таблица: https://imgur.com/vKMoDZ2
Ошибка: https://imgur.com/KMLnNMU

-----------------------------------------------------------------------------------------------------------------------------
Private Sub CheckBox2_Click()
If CheckBox2.Value = True Then Worksheets(«Товары»).Range(«l2») = CheckBox2.Caption
End Sub




Private Sub CommandButton1_Click()
Dim myRow As Integer
With goods
myRow = .ListObjects(«Autoo»).DataBodyRange.Rows.Count + 2
.Cells(myRow, «A»).Value = TextBox1.Text
End With
End Sub




Private Sub ListBox6_Click()
ListBox7.RowSource = Application.Substitute(ListBox6.Value, " ", "_")
End Sub
-----------------------------------------------------------------------------------------------------------------------------

Не понимаю что не так… Весь инет облазил. Помогите пожалуйста