Помогите поравить макрос

[Андрей_оз]

Всем привет!
Помогите поправить макрос
Данный макрос находит по ячейки строку и копирует на другой лист
Мне нужно чтобы найденные данные копировались в разные ячейки
Пример макроса:

Sub DoIt()
' макрос, который работает через 'элемент управления формы' (поле)
Dim rng As Range
Set rng = Worksheets("Лист1").Columns(1).Find (What:=TextBox1.Text, LookIn:=xlValues, LookAt:=xlWhole)
If Not rng Is Nothing Then
Worksheets("Лист1").Rows(rng.Row).C opy Worksheets("Лист2").Rows(3)
End If
End Sub

Файл пример что куда и зачем

[Watcher_1]

Будет так

Sub DoIt()
' макрос, который работает через 'элемент управления формы' (поле)
    Dim rng As Range
    Set rng = Sheets(1).Columns(1).Find(What:=TextBox1.Text, LookIn:=xlValues, LookAt:=xlWhole)
    If Not rng Is Nothing Then
        Sheets(2).[A3] = Sheets(1).Range("A" & rng.Row)
        Sheets(2).[G11] = Sheets(1).Range("B" & rng.Row)
        Sheets(2).[D5] = Sheets(1).Range("C" & rng.Row)
        Sheets(2).[E8] = Sheets(1).Range("D" & rng.Row)
        Sheets(2).[C10] = Sheets(1).Range("E" & rng.Row)
        Sheets(2).[B7] = Sheets(1).Range("F" & rng.Row)
    End If
End Sub

[Андрей_оз]

Большое спасибо