Macro stopped working. Copy cells from one sheet over to another based on adjacent cells.

So what this macro did was look at two columns on one sheet. Column A contained user names, column B contained their emails. Then it would replace everyone's name on a different sheet with their emails. However, now it only does it once, and if the name shows up more than once, the extras don't get replaced by the email. My understanding of VBA is almost non-existant. Please help?

Sub CopySGASheet1()

On Error Resume Next

Dim Cell As Range, Ncell As String, dest As Range

Worksheets("SGA LIST").Activate 'chose your "from" worksheet

For Each Cell In Range("A1", Cells(Rows.Count, 1).End(xlUp))

    Cell.Activate
    
        Cell.Offset(0, 1).Copy
    
        Ncell = Cell.Value
        
        Worksheets("Sheet1").Activate 'chose your destination worksheet
    
        Set dest = Cells.Find(What:=Ncell, After:=ActiveCell, LookIn:=xlValues, LookAt:= _
        xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
        , SearchFormat:=False)
         
        dest.PasteSpecial xlPasteValues
        
        Worksheets("SGA LIST").Activate 'chose your "from" worksheet again
        
            
    Next Cell

End Sub