,
   lng_MaxRow = Worksheets("xy").Range("A65536").End(xlUp).Row
   lng_MaxColum = Worksheets("xy").Range("1:1").End(xlToRight).Column '- 1
 
    With Worksheets("xy")
    For xRow = 2 To lng_MaxRow
          For yColumn = 2 To lng_MaxColum
            i = i + 1
            ReDim Preserve sarray(2, 1 To i)
 
                        sarray(0, i) = .Cells(xRow, 1).Value
                        sarray(1, i) = .Cells(1, yColumn).Value
 
.
.
                         sarray(2, i) = "dd.mm. - hh:mm:ss")