Merge 2 VBA into 1

hello Forum... i know very little of VBA... i do have these 2 codes in which i need in 1... any help is greatly appreciated

Sub ClockIn()

If Not IsClockedOut([employee]) Then
    MsgBox "You must resolve the current issue first."
    Exit Sub
End If

With clockdata.Range("A" & Rows.Count).End(xlUp)
    .Offset(1, 0) = [employee]
    .Offset(1, 1) = [Desc]
    .Offset(1, 2) = [ID]
    .Offset(1, 3) = Now
End With

End Sub

Sub red()
'
' red Macro
'

'
    Range("B16:C16").Select
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 255
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    Range("A9:A16").Select
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 255
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    Range("D9:D16").Select
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 255
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    Range("A8:D8").Select
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 255
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    Range("A1").Select
End Sub

welll.... it did work, but it highlighted the cells on sheet 2 which is titled "Log"
Can we highlight sheet 1 titled "Incident"

Perfect TY so much GC Excel!

I have 1 more issue i need help with (not sure if a new thread would be appropriate since it is similar)

I would like this piece of code to be attached to a 2nd button and the red cells go back to normal.

Sub ClockOut()

On Error GoTo NOTONLIST
With clockdata.Columns(1).Cells.Find([employee], Range("A" & Rows.Count).End(xlUp).Offset(1, 0), , xlWhole, , xlPrevious).Offset(0, 4)
    If .Value <> "" Then
        MsgBox "You must have an active issue before applying resolution."
        Exit Sub
    End If
    .Value = Now
End With
Exit Sub

NOTONLIST:
        MsgBox "You must have an active issue before applying resolution."
        Exit Sub

End Sub

so as to remove the red cells... we could overwrite with white or remove fill... whichever is easiest

perfect... TY guys!