Перенести данные с листа на другой лист - VB

Формулировка задачи:

Добрый вечер! у меня такая проблема: у меня на Лист1 есть 20 чисел, которые генерируются случайно в ячейки A1:A20. Необходимо, чтобы при нажатии на кнопку положительные числа переносились на Лист2, а отрицательные - на Лист3. Вот, что получилось у меня, но это как-то неправильно)

Public Sub Perenos()
Dim I As Integer, IndPol As Integer, IndOtr As Integer, X As Long
IndPol = 2
IndOtr = 4
Sheets("Положительные").Range("B1") = "Положительные"
Sheets("Отрицательные").Range("B1") = "Отрицательные"
For I = 1 To 20
If Sheets("Числа").Cells(I, 1) > 0 Then
IndPol = IndPol + 1
X(20, 1) = X(I, 1): X(20, 2) = X(I, 2): X(20, 3) = X(I, 3)
End If
Next I
Sheets("Числа").Range("B1").Resize(20, 3).Value = X
End Sub

Решение задачи: «Перенести данные с листа на другой лист»

textual
                            Листинг программы 
                        

                            Public Sub Perenos()
Dim I As Integer, IndPol As Integer, IndOtr As Integer, X As Long
IndPol = 2
IndOtr = 2
Sheets("Положительные").Range("B1") = "Положительные"
Sheets("Отрицательные").Range("B1") = "Отрицательные"
For I = 1 To 20
    If Sheets("Числа").Cells(I, 1) > 0 Then
        Sheets("Положительные").Cells(IndPol, 2) = Sheets("Числа").Cells(I, 1)
        IndPol = IndPol + 1
    ElseIf Sheets("Числа").Cells(I, 1) < 0 Then
        Sheets("Отрицательные").Cells(IndOtr, 2) = Sheets("Числа").Cells(I, 1)
        IndOtr = IndOtr + 1
    End If
Next I
End Sub
                        