For the padding, change:
With .Cells(1)
to:
With .Tables(1)