Zellüberwachung in 2 Bereichen

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Not Intersect(Target, [H2:AI3000]) Is Nothing Then
zelle = Cells(Rows.Count, 6).End(xlUp).Row + 1      'leere Zelle in Spalte finden
Cells(zelle, 6) = Date & ",  " & Time     'Eintrag in leere Zelle
Cells(zelle, 7) = cboName.Text      'ausgewählter Name in Zelle
cboName = "auswählen"
If Not Intersect(Target, [H2:H3000]) Is Nothing Then
zelle = Cells(Rows.Count, 5).End(xlUp).Row + 1
Cells(zelle, 4) = Date & ",  " & Time
Cells(zelle, 5) = cboUser.Text
cboUser.Text = "auswählen"
cboName.Text = ""
End If
End If
End Sub

eventuell irgendwo in der Tabelle in abhaengigkeit vom Cbo Eintrag ein "x" einzustellen und davon die jeweilige Ueberwachung anzusprechen.
Gruss hary