выделение данных

[Kate-Rina]

Добрый день.
бьюсь уже втрой день и никак не получается макрос(

дело вот в чем:
есть таблица, данные в которой меняются.
в последнем столбце "O" есть как пустые так и непустые ячейки.
нужно выделить в этом столбе непустые и скопировать полученную таблицу, но без шапки...

Selection.AutoFilter Field:=15, Criteria1:="<>" ' фильтр "Разница" - Непустые

а вот дальше ступор.

Помогите, пожалуйста

[SAS888]

Можно так (автофильтр должен быть установлен):

Sub Main()
    Application.ScreenUpdating = False: Sheets(2).Rows.Delete
    [A:O].AutoFilter Field:=15, Criteria1:="<>"
    Range([A2], Cells(Rows.Count, "O").End(xlUp)).Copy Sheets(2).[A1]
    ActiveSheet.ShowAllData
End Sub

Пример использования во вложении.

[Kate-Rina]

SAS888 ))) Спасибо огромное)))) Спасли мою голову)))