Sub DeleteTable0Rows()
Dim Tbl As Table, i As Long, Rng As Range
With ActiveDocument
  For Each Tbl In .Tables
    With Tbl
      For i = .Rows.Count To 1 Step -1
        Set Rng = .Cell(Row:=1, Columns:=2)
        With Rng
          .End = .End - 1
          If .Text = "0" Or .Text = "0.0" Or .Text = ".0" Then .Rows(1).Delete
        End With
      Next
    End With
  Next
End With
Set Rng = Nothing: Set Tbl = Nothing
End Sub