Badge Inventory Report

Hi
I need some help on the VBA of this report. In the "scan here" tab. I will scan in the badge number in cell "A2". The date will automatically be timestamped into the "June 17" tab of the date which I have indicated in cell "B2" of the Scan Here Tab. (I have originally input a "Today" function in cell B2 but have removed it for trial purpose here).
I just need a small help on the VBA whereby for example if I change badge 1 to "assigned" status on the date of 2 jun 17, the time stamp is not showing on cell J113. It is showing up on cell J3. Any assistance will be greatly appreciated.

The VBA code is as follows

Private Sub Worksheet_Change(ByVal Target As Range)

    Dim Today

    If Not Intersect(Target, Range("A2")) Is Nothing Then
        Today = Now()
        
        If Sheet1.Cells(2, 1) = "" Then
            MsgBox ("Please Scan")
        
        Else

Sheet2.Cells(Target.Cells(1, 3), Target.Cells(1, 4)) = Today
        
        End If
    End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

End Sub