Want to split a table based on values in a column

Assuming the data actually starts in row 1 try this.

Option Explicit

Sub ExpandTable()
Dim rngSrc As Range
Dim arrIn As Variant
Dim arrOut As Variant
Dim arrVals As Variant
Dim cnt As Long
Dim idxRow As Long
Dim idxVals As Long
Dim NoRows As Long

    Set rngSrc = Range("A2:D" & Range("A" & Rows.Count).End(xlUp).Row)

    NoRows = Evaluate("=SUM(LEN(" & rngSrc.Columns(2).Address & ")-LEN(SUBSTITUTE(" & rngSrc.Columns(2).Address & ", ""/"", """")))") + rngSrc.Rows.Count
    
    arrIn = rngSrc.Value
    
    ReDim arrOut(1 To NoRows, 1 To 4)
    
    For idxRow = 1 To UBound(arrIn, 2)
    
        arrVals = Split(arrIn(idxRow, 2), "/")
        
        For idxVals = LBound(arrVals) To UBound(arrVals)
            cnt = cnt + 1
            arrOut(cnt, 1) = arrIn(idxRow, 1)
            arrOut(cnt, 2) = Trim(arrVals(idxVals))
            arrOut(cnt, 3) = arrIn(idxRow, 3)
            arrOut(cnt, 4) = arrIn(idxRow, 4)
        Next idxVals
        
    Next idxRow
    
    With rngSrc.Offset(, 7)
        With .Offset(-1).Resize(1, 4)
            .Borders.Weight = xlThin
            .Font.Bold = True
            .HorizontalAlignment = xlHAlignCenter
            .Value = Array("Item Name", "Quantity", "Unit", "Date of order")
        End With
        With .Resize(NoRows)
            .Borders.Weight = xlThin
            .HorizontalAlignment = xlHAlignCenter
            .Value = arrOut
        End With
        .EntireColumn.AutoFit
    End With
    
End Sub

Here is an alternative solution. Using Power Query. Here is the Mcode. File attached for analysis.

let
    Source = Excel.CurrentWorkbook(){[Name="Table2"]}[Content],
    #"Changed Type" = Table.TransformColumnTypes(Source,{{"Item name", type text}, {"Quantity", type any}, {"Unit", type text}, {"Date of order", type date}}),
    #"Split Column by Delimiter" = Table.ExpandListColumn(Table.TransformColumns(Table.TransformColumnTypes(#"Changed Type", {{"Quantity", type text}}, "en-US"), {{"Quantity", Splitter.SplitTextByDelimiter("/", QuoteStyle.Csv), let itemType = (type nullable text) meta [Serialized.Text = true] in type {itemType}}}), "Quantity"),
    #"Changed Type1" = Table.TransformColumnTypes(#"Split Column by Delimiter",{{"Quantity", Int64.Type}})
in
    #"Changed Type1"