Extract date and specific string from text

[samahiji]

Hi
I have the following table that contains everything in one cell. I want to extract the last date entered in that cell and size in the formate of (00/00").
That two columns should be added to the original table similar to pic below.

 

[ranman256]

over 16,000 columns and they cram all values in 1 cell?

this code will scan the column (below is col A) and split out the latest value

Sub ParseAllRecs()
Dim vDate, vSize, vWord
Dim i As Integer

Range("A1").Select

While ActiveCell.Value <> ""
    vWord = ActiveCell.Value
    i = InStrRev(vWord, ",")
    
    If i = 0 Then
       i = InStrRev(vWord, "set")
       If i > 0 Then vWord = Mid(vWord, i + 3)
    Else
        vWord = Mid(vWord, i + 1)
    End If
    
    i = InStrRev(vWord, Chr(34))
    vSize = Trim(Left(vWord, i + 1))
    
    i = InStrRev(vWord, "on")
    vDate = Trim(Mid(vWord, i + 2))
    
    
    ActiveCell.Offset(0, 1).Value = vSize
    ActiveCell.Offset(0, 2).Value = vDate
    
    ActiveCell.Offset(1, 0).Select  'next row
Wend
MsgBox "Done"
End Sub