Ввод данных по нажатию кнопки - VBA

Формулировка задачи:

Подскажите макрос по выбору значений I4-J6 содержимое ячеек копировалось в таблицу по нажатии кнопки макросом и после этого значения в вводимой таблице обнулялись. Видео в интернете не помогает... Вот что я написал...

Sub AddDataToTable()
 
Dim nextRow As Long
nextRow = Cells(Rows.Count, 1).End(x1Up).Offset(1, 0).Row ' <---
MsgBox "A3:" & "nextRow", ""
 
With Table
If .Range("A2").Value = "" And .Range("C2").Value = "" Then
nextRow = nextRow - 1
End If
Nq.Range("Data").Copy
.Cells(nextRow, 1).PasteSpecial Paste:=xlPastValues
.Cells(nextRow, 2).Value = Nq.Range("Sm").Value
.Cells(nextRow, 3).Value = Nq.Range("Vid").Value
 
If nextRow > 1 Then
Range("A1").Select
Selection.AutoFill Destination^ = Range("A1:A" & nextRow)
Range("A1:A" & nextRow).Select
End If
End With
 
End Sub

Пишет эта строка не верная... я как в видео в начале ссылался н алист по имени... результат тот же

Решение задачи: «Ввод данных по нажатию кнопки»

textual
                            Листинг программы 
                        

                            Sub macro1()
Dim i%, k&' объявление переменных
k = Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row'определение номера строки следующей 
'за последней заполненной строкой в первом столбце
For i = 4 To 6 'начало цикла переменная i принимает номера строк с 4 по 6 
Cells(k, i - 3) = Cells(i, 10)' в ячейку расположенной в строке K и столбце i-3
'(т.е. при значении i=4 будет указан столбец 1 (А) а при i=6 - столбец 3 (С)
' внести значение из ячейки расположенной в строке с номером i и столбце 10 (J)
Cells(i, 10) = ""'очистить ячейку расположенную в строке с номером i и столбце 10 (J)
Next i
End Sub
                        