Hallo,
eine andere Variante, die alles im Chnage-Routine abwickelt und etwas Kommentar enthält:

Option Explicit 'erzwingt Deklaration verwendeter Variablen
Option Base 1 'erster Index eines Feldes ist 1

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Bereich As Range, Zeilen() As String, ZeilBer
  Set Bereich = Range("A13:A16") 'der zu überwachende Zellbereich
  'liegt die Zelle Target im Bereich?
  If Not Intersect(Target, Bereich) Is Nothing Then
    Sheets("Tabelle2").Rows.Hidden = False 'alle Zeilen einblenden
    Sheets("Tabelle3").Rows.Hidden = False
    Application.EnableEvents = False
    'um Mehrfachaufruf des Change-Events zu unterdrücken
    If Target.Text = "x" Then
      Bereich = " " 'alle x im Bereich löschen
      Target = "x" 'in Targetzelle wieder eintragen
      Select Case Target.Row 'auszublendende Zeilen festlegen
        Case 13 'A13
          ReDim Zeilen(1)
          Zeilen(1) = "15:20"
        Case 14 'A14
          ReDim Zeilen(2)
          Zeilen(1) = "15:20"
          Zeilen(1) = "24:28"
        Case 15 'A15
          ReDim Zeilen(2)
          Zeilen(1) = "15:22"
          Zeilen(2) = "23:37"
        Case 16 'A16
          ReDim Zeilen(3)
          Zeilen(1) = "12:20"
          Zeilen(2) = "23:78"
          Zeilen(3) = "100:104"
      End Select
      For Each ZeilBer In Zeilen() 'nun wirklich ausblenden
        Sheets("Tabelle2").Rows(ZeilBer).Hidden = True
        Sheets("Tabelle3").Rows(ZeilBer).Hidden = True
      Next
    End If
  End If
  Application.EnableEvents = True 'muss man wieder zurücksetzen
End Sub

Die Änderung, wenn in Tabelle2 und 3 unterschiedliche Bereiche auszublenden sind, lasse ich Dir zum Üben...

Gruß der AlteDresdner