Added two fields on the form "x / y" in the top cell in a table oftwo rows in the footer

Hi - After many attempts, I have almost given up. Hoping to find help
in here.

Should have added two fields on the form "x / y" in the top cell in a
table of two rows in the footer.
The code below shows what I could find, but do not operate optimally.
Can not get the fields inserted in the upper cell, nor have the slash
between the two fields.

Sub InsertFields_FooterCell()

Dim rngCell As Range
Set rngCell =
ActiveDocument.Sections(1).Footers(wdHeaderFooterPrimary).Range.Tables(1).Cell(1,...

Added two fields on the form "x / y" in the top cell in a table oftwo rows in the footer