Hi lostinvb!
Sub pricetheinvoice()
Dim cl As Range
Dim dic As Object
Dim ws1 As Worksheet, ws2 As Worksheet
Application.ScreenUpdating = False
Set ws2 = ThisWorkbook.ActiveSheet
Workbooks.Open Filename:="C:\FileServer\CompanyDocs\My Excel\Copy of Pricing.xls", ReadOnly:=True
Set wb1 = ActiveWorkbook
Set ws1 = ActiveSheet
Set dic = CreateObject("scripting.dictionary")
For Each cl In ws1.Range("A1", ws1.Range("A" & Rows.Count).End(xlUp))
If Not dic.exists(cl.Value) Then dic(cl.Value) = cl.Offset(, 7).Value
Next cl
wb1.Close False
For Each cl In ws2.Range("A1", ws2.Range("A" & Rows.Count).End(xlUp))
cl.Offset(, 7).Value = dic(cl.Value)
Next cl
Application.ScreenUpdating = True
End Sub