Уважаемые форумчане, добрый день!  
Скорее всего что-то подобное уже было, но поиском чего-то не нашёл того, что нужно...  
 
есть следующие коды:  
 
Private Sub Worksheet_Change(ByVal Target As Range)  
Dim LastRow As Long  
For Each cell In Target  
stroka = cell.Row  
LastRow = Sheets(2).Cells(Rows.Count, 2).End(xlUp).Row + 1  
Rows(stroka).Copy Destination:=Sheets(2).Cells(LastRow, 1)  
Next cell  
End Sub  
 
и  
 
Sub Копирование()  
Dim Target2 As Range  
Dim LastRow As Long  
Set Target2 = Selection.Cells  
For Each cell In Target2  
stroka = cell.Row  
LastRow = Sheets(2).Cells(Rows.Count, 3).End(xlUp).Row + 1  
ActiveSheet.Rows(stroka).Copy Destination:=Sheets(2).Cells(LastRow, 1)  
Next cell  
End Sub  
 
в первом варианте возможно копирование несвязных диапазонов, но данный вариант подходит, как я понял, только для макросов обработки событий...чего-то я не пойму как сделать возможным копирование несвязных диапазонов во втором варианте, чтобы юзер выбирал несколько произвольных ячеек и при нажатии кнопки на рабочем листе происходило копирование строк с этими ячейками на другой лист...в данном варианте возможно копирование только одного диапазона...