Private Sub Worksheet_Change(ByVal Target As Range)
    With Target
        If .Cells.Count > 1 Then Exit Sub
        If Intersect(.Cells, Range("G3:G120")) Is Nothing Then Exit Sub
        If .Value = "" Then Exit Sub
        
        Dim iY As Integer
        Dim i As Integer
               
        If WorksheetFunction.CountIfs(Columns(3), .Value) > 0 Then
            iY = WorksheetFunction.Match(.Value, Columns(3), 0)
            i = Cells(iY + 1, 3).Value
            Range(Cells(iY + 1, 2), Cells(iY + 1, 120)).Copy Cells(iY, 2)
            Cells(iY, 3).Value = i
            
        End If
    End With
End Sub