Auto Fill Cell Value added by "Copy N Paste"

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim r       As Range
    Dim cell    As Range

    Set r = Intersect(Target, _
                      Range("I:I,L:L,O:O"), _
                      Rows(9).Resize(Rows.Count - 8))
    If r Is Nothing Then Exit Sub

    Application.EnableEvents = False
    For Each cell In r
        With cell
            .Offset(, 1).Value = Environ("username")
            .Offset(, 2).Value = Now
        End With
    Next cell
    Application.EnableEvents = True
End Sub