To Combine Worksheet_Change Macro

I've been Google-ing for the last 45 minutes and tried to combine them myself, but I'm afraid of breaking it.

I believe the second code was taken from the MrExcel site, I don't remember.

CODE 1:

// Track Changes; updates any/all changed cells with a comment identifying the author, date and change that was made //

Option Explicit
Public preValue As Variant
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
Select Case Target.Column
Case Is = 2, 4, 6
Target.ClearComments
Target.AddComment.Text Text:="Previous Value was " & preValue & Chr(10) & "Revised "

CODE 2:

// Whenever a specific range of cells are updated, the adjacent cells update with a timestamp //

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
With Target
If .Count > 1 Then Exit Sub
If Not Intersect(Range("F3:F1000"), .Cells) Is Nothing Then
Application.EnableEvents = False
With .Offset(0, 1)
.Value = Now
End With
End If