Копирование строки на другой лист

[dsadik91]

Здравствуйте!
Мне нужно из одного листа поочередно подставлять значения в лист с просчетом и потом из этого листа копировать 42 строчку со значениями на Лист 2. Получилось вот так
Sub Макрос1()
Dim n&

For n = 2 To Cells(Rows.Count, 1).End(xlUp).Row
Sheets("Лист1").Range("J7") = Cells(n, "J")
Cells(42, n) = Sheets("Лист2").Cells(n, "A")
Rows("42:42") = Sheets("Лист2").Range("A1")

Next

End Sub

Не работает, помогите, пожалуйста!

[ShAM66]

Cells(n, "J") (так не работает)
Замените на Range("J" & n).
Следующую строку аналогично.
И зачем внутри цикла
Rows("42:42") = Sheets("Лист2").Range("A1")
Можно вынести после Next.

Без файла и точного объяснения что, куда и как больше никак.

[Hugo121]

Чегож не работает? Работает...

Sub tt()
    n = 3
    Cells(n, "J").Select
    Rows("42:42").Copy Sheets("Лист2").Range("A1")
' или можно короче
    Rows(42).Copy Sheets("Лист2").Range("A1")
End Sub

И копирование заодно наладил.
Но в целом задача мутная...

[ShAM66]

Чегож не работает? Работает...

Виноват, точно работает.

[dsadik91]

Так копирует просто, а мне нужно копировать и специальная вставка - значения. и к тому же так все копируется в 1 строку, а не нужно, чтобы они копировались вниз. то ест для 1го значения произведен расчет копируем 42ю на лист2, для 2го значения произведен расчет копируем 42ю строку на лист 2 на строчку 2 итд

[dsadik91]

вот файл.
Лист 1 - куча всяких формул
для прайса - эта таблица меняется, мне нужно чтобы когда ее вставляли и выполняли макрос все получалось. из нее копируется поочередно артикул(столбик J) в ячейку J7 Листа 1. Когда артикулы поочередно вставляются меняются значения в 42 строке Листа 1.
Вот мне нужно чтобы все эти 42 строчки поочередно копировались на Лист 2. но именно специальная вставка - значения! потому что если простое копирование то цифры пропадают