Excel VBA code snippets

TimesheetSnippet.vba

'If G and H are defined for the given row, add the difference to K and clear them
Private Sub Update_Total(ByVal Row As Integer)
    Dim punchStart, punchEnd, timeWorked As Integer
    punchStart = Range("G" & Row).Value
    punchEnd = Range("H" & Row).Value
    timeWorked = punchEnd - punchStart
    If (punchStart > 0 And punchEnd > 0 And timeWorked > 0) Then
        Range("K" & Row).Value = Range("K" & Row) + timeWorked
        Range("G" & Row).Value = ""
        Range("H" & Row).Value = ""
    End If
End Sub

'Anytime a value in column 6 (F) changes, call Update_Total for that row
Private Sub Worksheet_Change(ByVal Target As Range)
    If (Target.Column = 6) Then
        Update_Total (Target.Row)
    End If
End Sub