Function InCellSeq(Start, Finish)
For I = Start To Finish
  myStr = Join(Array(myStr, I))
Next I
InCellSeq = Application.Trim(myStr)
End Function

Function ArrSeq(lRows As Long, Optional lCols As Long = 1, Optional lStart As Long = 1, Optional lStep As Long = 1) As Variant
Dim R As Long, C As Long, Nums As Long
Nums = lStart
For R = 1 To lRows
  For C = 1 To lCols
    ArrSeq = ArrSeq & "," & Nums
    Nums = Nums + lStep
  Next
  ArrSeq = ArrSeq & ";"
Next
ArrSeq = Evaluate("{" & Replace(Mid(Left(ArrSeq, Len(ArrSeq) - 1), 2), ";,", ";") & "}")
End Function