エクセルVBAで教えて頂きたいのですが？

図の様に設定シートとSheet２があります。
今このプログラムを使用していますが、未登録の場合は空欄になってしまいます。
登録がない場合には未登録と表示させたいのですが、どの様に変更したらいいのか分かりません。
教えて頂きたいのですがよろしくお願い致します。

設定シートの範囲がA16～A25行目までの範囲と列はZ列までデーターは増やすことが出来ます

Sub TEST()
Dim s1 As Worksheet, s2 As Worksheet
Dim i As Long, f As Range, lc As Range
Dim c As Long, r As Long, d As String

Set s1 = Worksheets("設定")
Set s2 = Worksheets("Sheet2")

Set lc = s1.Cells.SpecialCells(xlLastCell)
c = lc.Column
r = lc.Row

For i = 2 To s2.Range("G2").End(xlDown).Row
Set f = s1.Range(s1.Cells(1, "B"), s1.Cells(r, c)).Find(What:=s2.Cells(i, "G").Value, LookAt:=xlWhole)
If Not (f Is Nothing) Then
s2.Cells(i, "F").Value = s1.Cells(f.Row, "B").Value
End If
Next i
End Sub