Adding column to an array

Hello all,

I have got a VBA code which pulls data from a table on website. This data you can find on sheet called Sheet1. But my desired table i want it to look like is visualised in sheet called Desired. Would it be possible to add two variables to an array from website? The variables I want to add are nowDate, nowTime, cat, website.

Sub DolphinFitness()
 Dim oHtml As HTMLDocument
 Dim oElement As Object
 Dim a, x, i As Long, ii As Long
 Dim nowDate, nowTime As Date
 Dim cat, website As String
 
 nowDate = Format(Now(), "dd/mm/yyyy", vbSunday)
 nowTime = Format(Now(), "hh:mm", vbSunday)
 website = "DolphinFitness"
 cat = "protein-isolate"
 
 'Needs a Reference.
 'Go to Tools > Reference > Search for Microsoft HTML Object Library > tick the checkbox > OK
 Set oHtml = New HTMLDocument
 
 With CreateObject("WINHTTP.WinHTTPRequest.5.1")
    .Open "GET", "http://www.dolphinfitness.co.uk/en/protein-isolate", False
    .send
    oHtml.body.innerHTML = .responseText
    Debug.Print
 End With

 ReDim a(1 To 100000, 1 To 5)
 For Each oElement In oHtml.getElementsByClassName("snapshot")
    i = i + 1
    x = Split(oElement.outerText, vbCr)
    For ii = 1 To UBound(x)
        a(i, ii) = Trim$(x(ii))
    Next
    
 Next oElement
 Sheets("Sheet1").Cells(2, 1).Resize(i, 5) = a
 
 '' remove line breaks
     Dim MyRange As Range
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual
 
    For Each MyRange In ActiveSheet.UsedRange
        If 0 < InStr(MyRange, Chr(10)) Then
            MyRange = Replace(MyRange, Chr(10), "")
        End If
    Next
    
'' remove sterling sign
    ActiveSheet.Range("C:C").Replace What:="£", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False
 
End Sub

Where are the variables in the URL "http://www.dolphinfitness.co.uk/en/protein-isolate", False?
I could not find them in the website either.
Where exactly do you see these values in the web page? I can only see a table with 3 columns? Could you attach the URL where these data are found?

The website contains table only three columns. I want to add other 4 custom variables defined by user or the time when the macro is ran so i could keep a history on price changes. Does that make a sense?

To increase the size of the array or columns is not an issue, but the value of the category column appears to change (As per the desired output), so I do not know how you are going to get these values?
There are many ways of adjusting the array. Quick and dirty fix which does not require looping, but inflexible is:

ReDim a(1 To 100000, 1 To 8)
 For Each oElement In oHtml.getElementsByClassName("snapshot")
    i = i + 1
    x = Split(oElement.outerText, vbCr)
        a(i, 1) = nowDate
        a(i, 2) = nowTime
        a(i, 3) = website
        a(i, 4) = cat
        a(i, 5) = Trim$(x(1))
        a(i, 6) = Trim$(x(2))
        a(i, 7) = Trim$(x(3))
    
    
 Next oElement
 Sheets("Sheet1").Cells(2, 1).Resize(i, UBound(a, 2)) = a

Another option:

 ReDim a(1 To 100000, 1 To 8)
 For Each oElement In oHtml.getElementsByClassName("snapshot")
    i = i + 1
    x = Split(oElement.outerText, vbCr)
    
    For ii = 1 To UBound(x)
        a(i, 1) = nowDate
        a(i, 2) = nowTime
        a(i, 3) = website
        a(i, 4) = cat
        a(i, ii + 4) = Trim$(x(ii))
    Next
    
 Next oElement
 Sheets("Sheet1").Cells(2, 1).Resize(i, UBound(a, 2)) = a