Copy and paste excluding zeros

How can I copy a range and paste it excluding the lines with a zero value. The sample attached explains it better.

Thanks for any ideas.

Give this a whirl, make sure there is nothing below the data set to evaluate.

Option Explicit
Sub CopySelect()
Dim lastrow As Long, firstrow As Long, i As Integer, n As Integer
lastrow = Range("B" & Rows.Count).End(xlUp).Row
firstrow = Range("B" & lastrow).End(xlUp).Row + 1
n = lastrow + 5

For i = firstrow To lastrow
    If Range("H" & i).Value > 0 Then
        Rows(i).EntireRow.Copy Rows(n)
        n = n + 1
    End If
Next i

End Sub

This exactly duplicates your sample. If you need the output to go somewhere else, we'll adjust the part in red above.

In your sample sheet, the earlier part of the code has already determined that the lastrow is row(16) and the firstrow is row(7).

(i) becomes a variable starting at 7 and progressing up through 16. One at a time we we evaluate the cell H(i) for its value. So the first time through it's cell H(7) which has a value of 3.30 which is greater than zero. Since it does, it copies the whole row(7) to row(n) and then increments n+1, then goes to the next i, which is row(8)...and it does it again.

In Excel 2007, you can use the Data tab, and there you will find a function "Remove Duplicates".

It can be used by adding a new column which counts from 1 downwards (on the left of your dataset, and another adjacent which has logic which represents that value unless the box to the right (the empty datacell in your real data) is empty otherwise make it an X(or something non numerical).

Filter the entire dataset for duplicates, but only tick the new column with x'es for parsing.

Bit long winded but no script required! There are some powerful time savers in that tab - worth playing with if you are blessed with office 2k7.