Split selected columns, or all columns exept for Column1

[Cendrinne]

Hello,
I've been researching how to select a few table Columns to split, but would need to skip the first column to 1 table. Either to select the columns to affect with the macro or to take table(1) but skip the first column.

On certain tables, the first column should be skiped, but the next 2+ columns, needs to be splited in two.

As of Col 2+2, column width :
Selection.Columns.PreferredWidth = InchesToPoints(0.8)
.RightIndent = InchesToPoints(0.08)

As of Col 3+2, column width :
Selection.Columns.PreferredWidth = InchesToPoints(0.13)
.RightIndent = InchesToPoints(0.08)

Any idea? This is what I came up with so far, with the help of Greg for most part.

Sub test_Split_and_Align_1_tbl()
'Got it to work for 1 table
'works but must find way to skip Column(1)
Application.ScreenUpdating = False
Dim oTbl As Table
Dim lngRow As Long, lngCol As Long
Set oTbl = Selection.Tables(1)
With oTbl.Range.Find
oTbl.Range.Select
Selection.Cells.Split 1, 2, False
For lngCol = 3 To oTbl.Columns.Count Step 2
oTbl.Columns(lngCol).Width = 48
Next lngCol
For lngCol = 4 To oTbl.Columns.Count Step 2
oTbl.Columns(lngCol).Width = 12
Next lngCol
For lngRow = 1 To oTbl.Rows.Count
For lngCol = 3 To oTbl.Columns.Count
If lngCol Mod 2 = 1 Then 'an odd column
oTbl.Cell(lngRow, lngCol).Range.ParagraphFormat.Alignment = wdAlignParagraphRight
Else


oTbl.Cell(lngRow, lngCol).Range.ParagraphFormat.Alignment = wdAlignParagraphLeft
End If
Next lngCol
Next lngRow
End With
'Next
lbl_Exit:
Exit Sub

End Sub