update button code

This should work, but if it does not, you need to attach your sample sheets.

Sub find_copy2()
Dim c2 As Range, c As Range
With Sheets("Al sheet")
LR = .Cells.Find(What:="*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
 For Each c In .Range("B1:B" & LR)
   Set c2 = Sheets("template sheet").Columns(2).Find(c, , xlValues, xlWhole)
    If c2 Is Nothing Then
    c.EntireRow.Copy Sheets("template sheet").Cells(Rows.Count, 1).End(xlUp).Offset(1)
    End If
   Next
 End With
End Sub