Split the selected Table by every single Row by VBA

[kamkwok6]

How to split the selected Table by every single Row by VBA. Many Thanks!


Original
Sample question .docxSample question.jpg




Final outcome as below
Sample (Final Outcome).docxSample question (final1).jpg

[gmayor]

That's simple enough

Sub Split()
Dim oTable As Table
Dim lRow As Long
    Set oTable = Selection.Tables(1)
    For lRow = oTable.Rows.Count To 1 Step -1
        oTable.Rows(lRow).Select
        Selection.SplitTable
    Next lRow
    Set oTable = Nothing
End Sub