=VLOOKUP(K2,P:Q,2,0)
Dim arr()
ReDim arr(100, 1) '100 - верхняя граница массива (равно кол. строк - 1)
Dim i&
For i = 0 To 99
arr(i, 0) = Cells(i + 1, 1).value 'i+1 потому что нумерация строк идет с 1, 1 - номер столбца с координатой Х
arr(i, 1) = Cells(i + 1, 2).value '2 - номер столбца с координатой Y
Next