Переставить в обратном порядке элементы массива

[Lorein]

Дан массив A размера N и целые числа K и L (1≤K<L≤N). Переставить в обратном порядке элементы массива, расположенные между элементами AK и AL, включая эти элементы.
Ошибка: Subscript out of range. Что тут не так?

Sub bb()
Dim A(), K, L, N, i As Integer
K = 5
L = 7
N = 10

Randomize Timer
For i = 1 To N
A(i) = Int(-10 + Rnd(1) * 21)
Cells(i, 1).Value = A(i)
Next i
i = K
Do While i <= K + (L - K) / 2
If i <> (L - i + K) Then
A(i) = A(i) + A(L - K + i)
A(L - K + i) = A(i) - A(L - K + i)
A(i) = A(i) - A(L - K + i)
i = i + 1

End If
Loop
For i = 1 To N
Cells(i, 3).Value = A(i)
Next i

End Sub