Inventory Update Macro

I am trying to create a Macro that will let me copy and paste the Inventory with the Corresponding SKU on a different spreadsheet, please help. Appreciate it! Below is my macro that i am trying to do...

Range("A2").Select
    Selection.Copy
    Sheets("Sheet2").Select
    Cells.Find(What:="AP1CT=3 /2085", After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Activate
    Range("C154").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Sheet1").Select
    Range("C2").Select
    ActiveSheet.Paste
    Range("A3").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Sheet2").Select
    Cells.Find(What:="AP1CG=3 /3623", After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Activate
    Range("C153").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Sheet1").Select
    Range("C3").Select
    ActiveSheet.Paste