Never mind, I found a way

I've programmed it manually but it works regardless how many rows I have
Code:
Sub Create_Dot_Leader_1Tbl_Col_1()
'
Application.ScreenUpdating = False
Dim oTbl As Table
Dim oRow As Row
Dim oCell As cell
Set oTbl = Selection.Tables(1)
With Selection.ParagraphFormat
.TextboxTightWrap = wdTightNone
.CollapsedByDefault = False
End With
Selection.ParagraphFormat.TabStops.ClearAll
ActiveDocument.DefaultTabStop = InchesToPoints(0.25)
Selection.ParagraphFormat.TabStops.Add Position:=InchesToPoints(5.25), _
Alignment:=wdAlignTabRight, Leader:=wdTabLeaderDots
oTbl.Columns(1).Select
For Each oRow In oTbl.Rows
Selection.SelectRow
Selection.HomeKey Unit:=wdLine
Selection.EndKey Unit:=wdLine
Selection.TypeText Text:=vbTab
Selection.Move Unit:=wdRow, Count:=1
Next oRow
On Error Resume Next
Application.ScreenUpdating = True
On Error GoTo 0
End Sub
If experts think it should be tweaked, please let me know
Cendrinne