Добрый день. Помогите, пожалуйста. Есть макрос, который копирует данные и вставляет их как значение на лист сводная. При текущем макросе, каждый раз при выполнении данные записываются поверх старых, а нужно, чтобы вставка производилась каждый раз в строку ниже... VBA совсем не знаю, попыталась сама, но не получилось( Если кто сможет помочь, буду крайне признательна.
Ирина Пятакова, добрый день. Вы бы оформили свое сообщение в соответствии с правилами форума, приложили файл с примером, а то придут модераторы и ругаться будут
Sub Макрос7()
'
Dim i As Long
i = ThisWorkbook.Sheets("Сводная").Cells(Rows.Count, 2).End(xlUp).Row + 1
With ThisWorkbook.Sheets("Сводная")
.Range("B" & i) = Sheets("Лист1").Range("A4")
.Range("C" & i) = Sheets("Лист1").Range("B5")
.Range("D" & i) = Sheets("Лист1").Range("B6")
.Range("E" & i) = Sheets("Лист1").Range("B8")
.Range("F" & i) = Sheets("Лист1").Range("B7")
End With
End Sub