Поиск+копирование найденного

[kain2003]

Всем привет цель моя сделать поиск типа как CTRL+f с последующим копированием данных,на отдельный лист.Пока есть файл в котором есть кнопка запускающая форму. В форме поиск работает(требует доработки), а вот с добавлением заказа беда.Получилось сделать тока чтобы он копировал данные на другой лист из активной ячейки выбранной поискомв ячейку на другом листе, мне надо сделать что бы каждый раз он добавлял новую строку и туда вставлял данные.
Надеюсь нормально объяснил файл прилагается.

Вот что у меня получилось пока:

Private Sub CommandButton1_Click()

Sheets("Лист1").Select
Cells.Find(what:=TextBox1, After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False).Activate
'If Find = TextBox1 Then
'Cells.Find(what:=TextBox1, After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False).Activate
'Else
'MsgBox "Ничего не найдено!Попробуйте набрать название товара через  * .Например: видео*128  "
'End If
Application.CutCopyMode = False
End Sub


Private Sub CommandButton2_Click()
ActiveCell.Select
    i = ActiveCell.Row
  Worksheets("Лист1").Rows(i).Copy Destination:=Worksheets("Лист2").Range("A1")
End Sub

Заранее благодарен

[EducatedFool]

Достаточно будет и этого кода:

Private Sub CommandButton1_Click()
    On Error Resume Next
    Cells.Find(what:=TextBox1, After:=ActiveCell, SearchOrder:=xlByRows).Activate
End Sub

Private Sub CommandButton2_Click()
    ActiveCell.EntireRow.Copy Worksheets("Лист2").Range("A" & Rows.Count).End(xlUp).Offset(1)
End Sub

Пример файла с кодом:

[kain2003]

Супер спасибо.
А каким кодом можно сделать так чтобы,когда он активирует ячейку,раскраваласись группы и можно ли сделать так как в поиске excel типа кнопки "найти все" чтобы он так же в форме показал ссылки на ячейки?

[EducatedFool]

А каким кодом можно сделать так чтобы,когда он активирует ячейку,раскраваласись группы

Private Sub CommandButton1_Click()
    On Error Resume Next
    Cells.Find(what:=TextBox1, After:=ActiveCell, SearchOrder:=xlByRows).Activate
    ActiveCell.EntireRow.ShowDetail = True
End Sub

можно ли сделать так как в поиске excel типа кнопки "найти все" чтобы он так же в форме показал ссылки на ячейки?

Да, можно, но очень долго это делать...

[kain2003]

Спасибо огромное