Using the coding approach I suggested with the thicker borders (6pt is the max), you could use:
Code:
Sub Demo()
Application.ScreenUpdating = False
Dim RngSrc As Range, RngTgt As Range
With Selection
If .Information(wdWithInTable) = False Then Exit Sub
With .Tables(1)
Set RngSrc = .Rows(.Rows.Count).Range
Set RngTgt = .Range
RngTgt.Collapse wdCollapseEnd
RngTgt.FormattedText = RngSrc.FormattedText
.Rows(.Rows.Count ).Range.Delete
.Rows(.Rows.Count ).Cells(1).Range.Text = (.Rows.Count - 1)
End With
End With
Application.ScreenUpdating = True
End Sub
With this approach, whatever formatting, shading etc. is applied to your existing last row is replicated in the new one.