Cacher is the code snippet organizer for pro developers

Sub DArrayCreator()
Dim wb As Workbook
Dim ws As Worksheet
Dim i, j, k As Integer

'Use this snippet for creating dynamic arrays from rows of data in Excel.
'Current snippet only allows for two columns of data.
'Enter source workbook location here
'Set wb = Workbooks.Open("C:\Users\Martin\Desktop\ArrayReplacer.xlsx")
Set wb = ActiveWorkbook
Set ws = wb.Sheets("Sheet1")

'Counts number of cells in column A
k = ws.Application.CountA(Range("A:A"))

Dim ListA(), ListB() As Variant
ReDim ListA(1 To k), ListB(1 To k)

For i = 1 To k
    ListA(i) = ws.Range("A1").Offset(i)
Next i

For i = 1 To k
    ListB(i) = ws.Range("B1").Offset(i)
Next i

'Indicates what values are included in your array.

Debug.Print "ListA has " & UBound(ListA) & " values."
Debug.Print "ListB has " & UBound(ListB) & " values."

'For i = LBound(ListA) To UBound(ListA)
 '   msg = msg & ListA(i) & vbNewLine
'Next i
'Debug.Print "The values of my dynamic array (ListA) are: " & vbNewLine & msg

End Sub