Макрос копирования строк по условию на другой лист

[Zolberg101]

Здравствуйте!
Сразу к делу. Помогите написать макрос. Необходимо чтобы делал отсев по колонке. К примеру колонка I - если значение в колонке больше 0, то копировал всю строку на другую страницу. Спасибо!

[svsh2016]

добрый день,вариант макросов test и очистка

Sub test()
    Dim z, i&, j&, m&: z = Sheets("Список_материалов").Range("A1:X" & Sheets("Список_материалов").Range("A" & Rows.Count).End(xlUp).Row).Value
   For j = 1 To UBound(z, 2): z(1, j) = z(1, j): m = 1: Next
    For i = 2 To UBound(z)
         If z(i, 9) > 0 Then
            m = m + 1: For j = 1 To UBound(z, 2): z(m, j) = z(i, j): Next
         End If
   Next
  Sheets("Sheet1").Range("A1").Resize(m, UBound(z, 2)).Value = z
  Sheets("Sheet1").Columns("A:X").AutoFit
End Sub

Sub очистка()
Sheets("Sheet1").Range("A1:X" & Sheets("Sheet1").Range("A" & Rows.Count).End(xlUp).Row).ClearContents
End Sub