Making date appear in a cell

So with everybodys help on here and a lot of research I have a macro that copies and pastes numbers from one sheet to another and then if there are any duplicates it removes them. It also looks through the numbers that are already on the second sheet and if the are not on the first sheet it dates a cell. Now this is pretty much what I need except one step further, when the number is brought to the second sheet I need it to date a cell. I have to following code already

Sub Udpate()
'
' Update Macro
' Keyboard Shortcut: Ctrl Shift + U
'
Dim lst As Long
Sheets("Input").Range("B2:C51").Copy
With Sheets("Sheet1")
    lst = .Range("A" & Rows.Count).End(xlUp).Row + 1
    .Range("A" & lst).PasteSpecial xlPasteValues
End With


Dim x  As Long
    Dim LastRow As Long
     
    LastRow = Range("B65536").End(xlUp).Row
    For x = LastRow To 1 Step -1
        If Application.WorksheetFunction.CountIf(Range("A2:A" & x), Range("A" & x).Text) > 1 Then
            Range("A" & x).EntireRow.Delete
        End If
    Next x
    
Dim ws1 As Worksheet:   Set ws1 = Sheets("Sheet1")
Dim ws2 As Worksheet:   Set ws2 = Sheets("Input")
Dim Range1 As Range, Range2 As Range, icell As Range, iFind As Range

Set Range1 = ws1.Range("A2:A" & ws1.Range("A" & Rows.Count).End(xlUp).Row)
Set Range2 = ws2.Range("B2:B" & ws2.Range("B" & Rows.Count).End(xlUp).Row)

For Each icell In Range1
    If IsNumeric(icell.Value) Then
        Set iFind = Range2.Find(What:=icell.Value, LookIn:=xlValues, lookat:=xlWhole)
            If iFind Is Nothing Then
                icell.Offset(0, 3).Value = Date
            End If
    End If
Next icell

End Sub

I would imagine it is just adding another line to the top function but I can not figure it out