Sammenfeltning af to VBA koder

Hej jeg har hjælp med at sætte 2 VBA koder sammen. De funger enkeltvis  men når de er i samme sheet går det galt.

koderne er nedenfor - jeg håber i kan hjælpe.

---------------------
Kode 1

' koden angiver today i ´kolonne G når der bliver skrevet i række B
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
    Dim rCell As Range
    Dim rChange As Range
   
    On Error GoTo ErrHandler
    Set rChange = Intersect(Target, Range("B:B"))
    If Not rChange Is Nothing Then
        Application.EnableEvents = False
        For Each rCell In rChange
            If rCell > "" Then
                With rCell.Offset(0, 5)
                    .Value = Now
                    .NumberFormat = "m/d/yyyy"
                End With
            Else
                rCell.Offset(0, 5).Clear
            End If
        Next
    End If
ExitHandler:
    Set rCell = Nothing
    Set rChange = Nothing
    Application.EnableEvents = True
    Exit Sub
ErrHandler:
    MsgBox Err.Description
    Resume ExitHandler
-----------------
Kode 2
'angiver dato i kolonne J hvis der står "i" eller "implemented" i kolonne K. 

Private Sub Worksheet_Changes(ByVal Target As Range)
If Target.Column = 10 Then
  If Target = "" Then Range("K" & Target.Row) = ""
  If Target = "implemented" Or Target = "i" Then _
    Range("K" & Target.Row) = Date
End If
End Sub
-----

Som sagt virker koderne ikke når de begge er i samme sheet men wiker godt når der kun er en af dem i sheetet.

Så jeg tænkte om de kunne skrives sammen?