2 different sets of code in 1 tab

Afternoon
Is it possible to add 2 sets of code into the VB code.
If I got to my spreadsheet tab 1 and the view code and edit it takes me to a timpestamp that I wrote for colum A. This is a spreadsheet that records data and then results so need 2 incidences of this timestamp. 1 when the sample is recieved and then another when results are entered. How do I do this. The timestamp code is

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Cell As Range
For Each Cell In Target
    If Target.Address = "$A$1" Then
        If IsNumeric(Cell) Then
            Application.EnableEvents = False
            Range("B1") = Date
            Application.EnableEvents = True
        End If
    End If
Next Cell
End Sub

Any suggestions?