Изменение макроса для копирования данных

[simi]

Здравствуйте.
имеется макрос который копирует данные в другой файл.
пример нужно скопировать только данные без n/a и 0.
в этот макрос я хотел вставить фильтр, но моя не писатель. поэтому он перестает работать

Sub Copy2File()    ' срабатывает при нажатии одной из кнопок в подменю  
    On Error Resume Next  
    ПутьКФайлу = Application.CommandBars.ActionControl.Tag  
    'MsgBox "Параметр макроса = """ & ПутьКФайлу & """", vbInformation, "Запущен макрос из подменю"  
    Application.ScreenUpdating = False  
    Dim ro As Range: Set ro = Intersect(Selection.EntireColumn, ActiveSheet.UsedRange)  
    Dim pi As New ProgressIndicator  
    pi.Show "Перенос выделенных строк в файл"  
    pi.StartNewAction , 30, "Открытие файла ...", "Файл: " & ПутьКФайлу  
    Dim wb As Workbook: Set wb = GetObject(ПутьКФайлу)  
    pi.StartNewAction 30, 50, "Запись данных ...", " "  
    Dim cell As Range: With wb.Worksheets(1)  
        With .Range("a" & .Rows.Count).End(xlUp)  
            Set cell = IIf(IsEmpty(.Value), .Cells, .Offset(1))  
        End With  
    End With  
    ro.Copy  
    cell.PasteSpecial xlPasteValues: cell.PasteSpecial xlPasteFormats  
    wb.Windows(1).Visible = True  
    pi.StartNewAction 50, 100, "Сохранение файла ...", "Файл: " & ПутьКФайлу  
    wb.Close True  
    pi.Hide  
End Sub

может как нибудь по другому это сделать. подскажите пожалуйста

[IgorGO]

поместите макрос

Sub copyToДругойФайл()
  ActiveSheet.Copy
  Columns(1).Replace What:="0", Replacement:="", LookAt:=xlWhole, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
  Columns(1).Replace What:="n/a", Replacement:="", LookAt:=xlWhole, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
  Columns(1).SpecialCells(4).EntireRow.Delete:  ActiveWorkbook.SaveAs "ДругойФайл":  ActiveWorkbook.Close
End Sub

в стандартный модуль
при активном листе с данными выполните это макрос.
все! данные без 0 и Н/А скопированы в ДругойФайл

[simi]

спасибо конечно, но это не совсем то.

[IgorGO]

понятно.
я не читаю мысли (я не знаю что Вы думали скопировать) я читаю то, что написано:

пример нужно скопировать только данные без n/a и 0.

как говорили раньше "разрази меня гром", если макрос не скопировал данные с Вашего примера без н/а и нулей в "ДругойФайл"))

[simi]

имя файла я то поменял) хотелось бы в тот макрос добавить