Макрос для простого копипаста

[dalmatin]

Добрый день!
Помогите, пожалуйста, с такой задачей:
В одной книге есть два листа. На одном имеются данные, размещенные по столбцам и строкам. Второй лист пустой. Необходим макрос, осуществляющий копирование выделеного диапазона строки (выделение диапазона осуществляет пользователь) из листа с данными в пустой лист, допустим в ячейку В2, по нажатию назначенной кнопки. Затем снова пользователь выделяет необходимый диапазон строки, нажимает ту же кнопку и скопированые данные должны поместиться уже в ячеку В3... и так далее...пока не надоест
Заранее благодарен за Вашу помощь!

[VictorM]

Код на кнопку:

Sub Внести()
       Selection.Copy Destination:=Worksheets("КП").Cells(Rows.Count, 2).End(xlUp).Offset(1, 0)
End Sub

[VictorM]

Чтобы снимать выделение с диапазона после копирования, можно так еще написать

Sub Внести()
    Application.ScreenUpdating = False
    Selection.Copy Destination:=Worksheets("КП").Cells(Rows.Count, 2).End(xlUp).Offset(1, 0)
    ActiveCell.Select
End Sub

[Hugo121]

Sub copypaste()
With Лист6
Range(Cells(Selection.Row, 2), Cells(Selection.Row, 5)).Copy .Cells(.Cells(Rows.Count, 2).End(xlUp).Row + 1, 2)
End With
Beep
End Sub

Без выделения - копирует из активной строки заданный в коде диапазон.
Долго писал...
Одну строку можно сократить по примеру свыше

Range(Cells(Selection.Row, 2), Cells(Selection.Row, 5)).Copy .Cells(Rows.Count, 2).End(xlUp).Offset(1, 0)

[dalmatin]

Вот спасибо вам всем большое! Все прекрасно работает