Скопировать положительные числа

[DAN1L]

Нужно скопировать только положительные числа с листа 1 на лист 2, начиная с ячейки а2 по а14.

Private Sub CommandButton1_Click()
i = 6: j = 1
Do
a = Cells(i, 2).Value
If a > 0 Then j = j + 1
Sheets("Лист2").Cells(j, 1) = a
i = i + 1
Loop While a > 0
End Sub

что не правильно? подправьте пожалуйста

[DAN1L]

Это вопрос жизни и смерти!) Пожалуйста)

[DiemonStar]

Sub CellsCopy()
  Dim Src As Range
  Set Src = Nothing
  For Each R In [A2:A14].Cells
    If R > 0 Then
      If Src Is Nothing Then
        Set Src = R
      Else
        Set Src = Union(Src, R)
      End If
    End If
  Next R
  If Not Src Is Nothing Then
    Src.Copy Sheets("ëèñò2").[A2]
  End If
End Sub

Попробуйте такой вариант.

[DAN1L]

Сообщение от DiemonStar

Sub CellsCopy()
  Dim Src As Range
  Set Src = Nothing
  For Each R In [A2:A14].Cells
    If R > 0 Then
      If Src Is Nothing Then
        Set Src = R
      Else
        Set Src = Union(Src, R)
      End If
    End If
  Next R
  If Not Src Is Nothing Then
    Src.Copy Sheets("ëèñò2").[A2]
  End If
End Sub

Попробуйте такой вариант.

Не работает(

[DAN1L]

Сообщение от DiemonStar

Sub CellsCopy()
  Dim Src As Range
  Set Src = Nothing
  For Each R In [A2:A14].Cells
    If R > 0 Then
      If Src Is Nothing Then
        Set Src = R
      Else
        Set Src = Union(Src, R)
      End If
    End If
  Next R
  If Not Src Is Nothing Then
    Src.Copy Sheets("ëèñò2").[A2]
  End If
End Sub

Попробуйте такой вариант.

простите пожалуйста, все работает, могли бы вы объяснить как это работает

For Each R In [A2:A14].Cells
If R > 0 Then
If Src Is Nothing Then
Set Src = R
Else
Set Src = Union(Src, R)
End If
End If
Next R

[DiemonStar]

For Each R In [A2:A14].Cells

цикл по всем ячейкам диапазона A2:A14 текущего листа

If R > 0 Then

если в текущей ячейке положительное значение

If Src Is Nothing Then

если диапазон результата пустой, тогда

Set Src = R

присвоим диапазону результата текущую ячейку

Else
Set Src = Union(Src, R)

иначе объединим диапазон результата с текущей ячейкой. (т.е. включим текущую ячейку в диапазон результата)