Padding should do it e.g. the following will apply the default padding, unless you have changed the default, in which case change the numbers to reflect what you have.
Sub PadAllCells()
Dim oCell As Cell
For Each oCell In Selection.Tables(1).Range.Cells
With oCell
.TopPadding = CentimetersToPoints(0)
.BottomPadding = CentimetersToPoints(0)
.LeftPadding = CentimetersToPoints(0.19)
.RightPadding = CentimetersToPoints(0.19)
End With
Next oCell
Set oCell = Nothing
End Sub
Sub PadCurrentCell()
Dim oCell As Cell
Set oCell = Selection.Cells(1)
With oCell
.TopPadding = CentimetersToPoints(0)
.BottomPadding = CentimetersToPoints(0)
.LeftPadding = CentimetersToPoints(0.19)
.RightPadding = CentimetersToPoints(0.19)
End With
Set oCell = Nothing
End Sub