Koordinat okutma

[unbqlqnced]

Öncelikle herkese merhaba arkadaşlar
makro ya yeni yeni giriyorum.
Bir makro yazdım başka bir makroya bakarak ancak diğer makroda çalışan işlem bende Expected Array hatası veriyor. Hücreleri koordinat biçiminde okutmak istiyorum amacım bu. Yardımcı olursanız çok memnun kalırım.

Dim X1(0 To 10000), Y1(0 To 10000) As Double
Dim t As Integer
Dim i, k, m As Double
Dim n As Byte
Dim aa As Variant
Dim koor(0 To 1000) As Variant
X1(1) = 0: Y1(1) = 0:
t = Range("b5").Value
For i = 2 To t + 1
Y1(i) = Cells(11, i).Value - Range("b8").Value
X1(i) = Range("b4").Value * i
Next i

aa = ""
n = t
For k = 1 To t
For m = 1 To 2
koor(k) = aa & n(Cells(m + 13, k + 1).Value, Cells(m + 12, k + 1).Value)
Next m
Next k

Print #1, line1 & koor(k) & kapat