Combing two events Worksheet_Change

I am trying to combine these two pieces of code. One of which updates the worksheet when data is entered/changed from set filter parameters. The other is meant to automatically timestamp any changes made to any cell. Not sure why I'm getting errors and if anyone could help it would be much appreciated.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Or Target.Column > 17 Then Exit Sub
    Application.EnableEvents = False
    Cells(Target.Row, 1) = Now
    Application.EnableEvents = True

    If Me.FilterMode = True Then
        With Application
           .EnableEvents = False
           .ScreenUpdating = False
        End With

        With ActiveWorkbook
            .CustomViews.Add ViewName:="Mine", RowColSettings:=True
          Me.AutoFilterMode = False
            .CustomViews("Mine").Show
            .CustomViews("Mine").Delete
        End With


         With Application
           .EnableEvents = True
           .ScreenUpdating = True
        End With
    End If

End Sub

With this:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Row > 1 Then Cells(Target.Row, "I") = Now()
End Sub

Thanks!