Sub Demo()
Dim i As Integer, j As Integer, k As Integer
With ActiveDocument
  For i = 1 To 4
    With .Tables(i)
      j = .Columns.Count
      For k = 1 To .Rows.Count - 1
        .Cell(k, j).Range.Text = "0"
      Next
    End With
  Next
End With
End Sub