Filter and Copy Loop macro

[matman]

I have a table, for simplicity lets say 10x10. Column 10 is the total of the inputs in that row.
If that total is above 0 then I want to copy that row and paste it underneath the array in row 20.

How do I write a simple code that will go through the table copying those rows and pasting them underneath?

Many thanks

 

[DonkeyOte]

sub copy_data()

n = 1
pr = 20

Do Until n > 10
If Cells(n,10) > 0 then
Range(Cells(n,1),Cells(n,10)).Copy
Cells(pr,1).pastespecial xlpastevalues
pr = pr + 1
End If
n = n + 1
Loop

End Sub

 

[matman]

Many thanks Luke from rainy London. It works fantastically

 

[DonkeyOte]

no probs...

as for rainy london - is that because you too are in London or are you simply making an assumption (albeit a correct one!) that it always rains in London?

That said, anyone got any jobs going somewhere sunny?

 

[matman]

Nope, I am in London as well, if there's any sunny jobs going then I'm first in the queue.