How can delete an XML node in VBA?

this my code , its exports an excel table to XML DATA , i have filtered out some columns

Dim rng As Range, row As Range, cell As Range, i As Integer

Sub Export()

        'CheckInput

        ActiveSheet.Unprotect

rawName = Array("Supplier_order_number", "Process", "Quantity", "Delivery_date", "Call_off_code", "abf")



Set oXmldoc = CreateObject("Microsoft.XMLDOM")
Set oRoot = oXmldoc.createElement("Records")
oXmldoc.appendChild oRoot


    Set rng = Range("A10").CurrentRegion
    Set rng = rng.Offset(1, 0)
    Set rng = rng.Resize(rng.Rows.Count - 1)

    For Each row In rng.Rows

        i = 0
        col = 0
        Set Orec = oXmldoc.createElement("Record")
        oRoot.appendChild Orec


        For Each cell In row.Cells


            If col = 0 Or col = 1 Or col = 2 Or col = 4 Or col = 5 Or col = 6 Or col = 7 Or col = 9 Or col = 10 Or col = 11 Or col = 12 Or col = 13 Or col = 14 Or col = 15 Or col = 16 Or col = 18 Or col = 19 Then GoTo ContinueLoop


            If col = 17 Or col = 20 Or col = 21 Or col = 22 Then If IsEmpty(cell.Value) = True Then oRoot.ParentNode.RemoveChild oRoot


            Set ocn = oXmldoc.createElement(rawName(i))
            ocn.Text = cell.Value
            Orec.appendChild ocn
            i = i + 1


ContinueLoop:
            col = col + 1
            Next cell
            Next row


        DirPath = Tabelle2.Cells(5, 3)
        DateStr = Format(Date, "dd-mm-yyyy")
        XmlFormat = ".xml"
        Set oIntro = oXmldoc.createProcessingInstruction("xml", "version='1.0' encoding='ISO-8859-1'")
        oXmldoc.InsertBefore oIntro, oXmldoc.ChildNodes(0)
        oXmldoc.Save DirPath & DateStr & XmlFormat
        ActiveSheet.Protect



End Sub

here is the problem with this line

If col = 17 Or col = 20 Or col = 21 Or col = 22 Then If IsEmpty(cell.Value) = True Then oRoot.ParentNode.RemoveChild oRoot

, when column number 17 or 20 or 21 or 22 empty then delete the whole Node , because then the node is already written because the code will take the column number 3 and 8 so when the 17 then i want to delete the whole thing and ContinueLoop to next row