Bulk Find And Replace

I am attaching a sample excel workbook for reference. I have a set of coded data in numbers in ColumnA, and want to replace them with actual names which are in Column G.

As explained before, I set up columns such that all template number codes are in Column F and names in Column G. The actual raw data in Column A.

However the macro is giving me wrong replacements i.e. if the coded number was 21, its replacement is name2name1 not name 21, I hope you understand what I am saying.

It will save me bucket loads of time as I have a multiple similar columns. I am a novice in macros so I am not sure how to find full numbers (21) and replace with the specific name.

Sub FindReplace()
    Dim Frange As Range
    Dim Fr As Range
    Set Frange = Range("F1", Range("F65536").End(xlUp))
    For Each Fr In Frange
        Columns("A:A").Replace What:=Fr, Replacement:=Fr.Offset(0, 1), LookAt:=xlPart, _
                               SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
                               ReplaceFormat:=False
    Next Fr

End Sub