Price Increase from my supplier

maxtreme01 

Here is a macro you can run:

Sub ReplacePrices()
    ' Assumption: part numbers in column A, starting in row 2.
    ' Prices in column P.
    Dim wss As Worksheet
    Dim wst As Worksheet
    Dim m As Long
    Dim rgs As Range
    Dim rgt As Range
    Application.ScreenUpdating = False
    ' Change the following two lines as needed
    Set wss = Workbooks("New.xlsx").Worksheets("New Prices")
    Set wst = Workbooks("Old.xlsx").Worksheets("Current Prices")
    m = wss.Range("A" & wss.Rows.Count).End(xlUp).Row
    For Each rgs In wss.Range("A2:A" & m)
        Set rgt = wst.Range("A:A").Find(What:=rgs.Value, LookAt:=xlWhole, MatchCase:=False)
        If Not rgt Is Nothing Then
            wst.Range("P" & rgt.Row).Value = wss.Range("P" & rgs.Row).Value
        End If
    Next rgs
    Application.ScreenUpdating = True
End Sub