Find sellected cell, and copy row to?

[RagingR12]

I want to do the following:

I want to select a cell in sheet 1:
Find that cell contant in sheet 2
Copy that row.

Find sheet 1 cell contant in sheet 3
Pate row from sheet 2

Correct row numbering in column A on sheet 3

Go back to sheet 1

I have the following example, but can't automated!

Sub copy_row()'
' copy_row Macro

    Range("F783").Select
    Selection.Copy
    Sheets("OldBom").Select
    Cells.Find(What:="1111 222 33333", After:=ActiveCell, LookIn:=xlFormulas _
        , LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Activate
    Rows("391:391").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("NewBom").Select
    Cells.FindNext(After:=ActiveCell).Activate
    Rows("394:394").Select
    ActiveSheet.Paste
    Range("A392:A393").Select
    Application.CutCopyMode = False
    Selection.AutoFill Destination:=Range("A392:A412")
    Range("A392:A412").Select
    Sheets("Datasheet v1").Select
    Range("F783").Select
    ActiveCell.Offset(395, 6).Range("A1").Select
    Sheets("OldBom").Select
    ActiveCell.Offset(0, 5).Columns("A:A").EntireColumn.Select
    ActiveCell.Offset(-17, 5).Range("A1").Activate
End Sub