Copy Entire Row From One Ws To Another

I have looked through the forum at several different copy and Vlookup examples, but I can’t seem to get them to work. I need to compare worksheet(1) (“Portfollio”) in column “B” against Worksheet(2) (“PJS Cap”) column “B” to find any items that the worksheet(2) has that Worksheet(1) does not. Then for these items copy the entire row to the end of worksheet(1). My code gives a runtime error on the copy line

Sub PJSUpdate()
Dim Found As Boolean
Dim I As Integer
Dim J As Integer
Dim LastRowE As Long
Dim LastRowP As Long
Dim InsterRow As Long
LastRowE = Worksheets("PJS Cap"). Range("b65536").End(xlUp).Row
LastRowP = Worksheets("Portfollio").Range("b65536").End(xlUp).Row
InsertRow = LastRowP
For J = 2 To LastRowE ' loops through the portfollio worksheet project list
Found = False 'flag intitated to not found........................