Assuming the style exists
Sub CGPasteTable()
Dim oTable As Table
Dim oCell As Cell
Selection.PasteSpecial _
link:=False, _
DataType:=wdPasteRTF, _
Placement:=wdInLine, _
DisplayAsIcon:=False
Set oTable = Selection.Tables(1)
With oTable
'.Style = ActiveDocument.Styles("CG Table Text")
.AutoFitBehavior wdAutoFitWindow
.Range.ParagraphFormat.Alignment = wdAlignParagraphRight
With .Range.Cells
.VerticalAlignment = wdCellAlignVerticalCenter
.Height = CentimetersToPoints(0.44)
End With
For Each oCell In .Columns(1).Cells
oCell.Range.ParagraphFormat.Alignment = wdAlignParagraphLeft
Next oCell
End With
Set oTable = Nothing
Set oCell = Nothing
End Sub