WOW, It works perfect. Thanks a lot.
Could you explain to me what these lines of code do? I execute it step by step and still I don't understand it very well:
Code:
With oTbl
For r = .Rows.Count - 2 To 3 Step -3
.Split .Rows(r)
Next
End With
And these lines, what exactly do they count?:
Code:
For i = 1 To .SelectedItems.Count Step NumCols
r = ((i - 1) / NumCols + 1) * 3 - 2
MsgBox r