Slightly more complicated than simply merging two spreadsheets

This assumes that column B is unique.

In a standard module.

Sub ImportRecs()

Dim WBSrc As Workbook
Dim WSDest As Worksheet
Dim WSSrc As Worksheet
Dim A As Long
Dim B As Long
Dim LRSrc As Long
Dim LRDest As Long
Dim FN As String
Dim C As Range

FN = Application.GetOpenFilename

If FN <> "False" Then
    Application.ScreenUpdating = False
    
    Set WBSrc = Workbooks.Open(FN)
    Set WSSrc = WBSrc.Worksheets(1)
    
    With WSSrc
        LRSrc = .Cells(.Rows.Count, "A").End(xlUp).Row
    End With
    
    Set WSDest = Workbooks("NTP and PA list TB.xlsm").Worksheets(1)
    
    With WSDest
        LRDest = .Cells(.Rows.Count, "A").End(xlUp).Row + 1
        
        For A = 2 To LRSrc
            With .Range("b2:b" & LRDest)
                Set C = .Find(WSSrc.Range("B" & A), LookIn:=xlValues)
                If C Is Nothing Then
                    WSSrc.Range("A" & A & ":I" & A).Copy .Cells(LRDest, 0)
                    LRDest = LRDest + 1
                    B = B + 1
                End If
            End With
        Next
    End With
End If

WBSrc.Close False
Application.ScreenUpdating = True

MsgBox "Copied " & B & " items from new report"

End Sub