Dim a(10 To 50, 1 To 2) As Integer
Dim i As Integer
For i = 10 To 50
If trim(ActiveSheet.Cells(i, 6).Value) = "" Then
Exit For
Else
a(i, 1) = Cells(i, 6).Value
a(i, 2) = Cells(i, 4).Value
End If
'Debug.Print a(i, 1) & " " & a(i, 2)
Next i
End Sub