Macro: Do Not Copy rows if column A Equals 0

[syndee]

I need to copy only the rows that have a value not equal to zero in column A. These rows will be pasted into new workbook called Export.csv.

Is it possible. I have tried link but makes files too large. Tried pasting but have to highlight all rows and it still paste data into blank cells.

 

[MARK858]

Maybe, the below is close.
You must have headers in the sheet being copied from.
It assumes that Export.csv has already been created and is open.
Make sure you change sheet names in red to match your sheet names.

and I don't know what you mean by....

and it still paste data into blank cells

as you haven't mentioned it before.

Sub Filterit()
    Dim lr As Long, lc As Long
    Application.ScreenUpdating = False

    With ThisWorkbook.Sheets("[COLOR="#FF0000"]Sheet1[/COLOR]")
        lr = .Cells.Find("*", , xlValues, xlPart, xlByRows, xlPrevious, False).Row
        lc = .Cells.Find("*", , xlValues, xlPart, xlByColumns, xlPrevious, False).Column

        With .Range(.Cells(1, 1), .Cells(lr, lc))
            .AutoFilter 1, "<>0"

            On Error Resume Next
            .Offset(1).Resize(.Rows.Count - 1).SpecialCells(xlCellTypeVisible).Copy _
                    Workbooks("Export.csv").Sheets("[COLOR="#FF0000"]Export[/COLOR]").Range("A" & Rows.Count).End(xlUp).Offset(1)
            On Error GoTo 0
            .AutoFilter
        End With
    End With

    Application.ScreenUpdating = True
End Sub