How to copy/paste only cells>0 from a range

Mac P.
Here's one way :-

Dim I As Integer
Range("A1:F1").Copy
Range("H3").PasteSpecial Paste:=xlAll, Transpose:=True
For I = 8 To 3 Step -1
If Cells(I, 8).Value < 0 Then Cells(I, 8).Delete Shift:=xlUp
Next

Celia

Thank you Celia for your help. I'm wondering if there is another way without deleting the cells that would be zero. Thanks a lot.

Mac P
I think you mean WITH deleting the zeros :-

Dim I As Integer
Range("A1:F1").Copy
Range("H3").PasteSpecial Paste:=xlAll, Transpose:=True
For I = 8 To 3 Step -1
If Cells(I, 8).Value < 0 Or Cells(I, 8).Value = 0 Then Cells(I, 8).Delete Shift:=xlUp
Next

Celia

Hi Celia. Actualy this is what I meant. The code that you recommended works like this: copy cell by cell, paste one by one but delete the cell where was pasted zero and shifts cells up. My question was if you know how to paste one cell after another only cells with value>0, without deleting, shifting up. In other words: if A1>0 copy A1 and paste it in H3, if A1<=0 do nothing (no copy or paste), if A2>0 copy A2 and paste it in H3 if H3 is empty or in H4 if H3 is number, if A2<=0 do nothing and so on. I'm tring to avoid the paste and delete/shift cell when zero because it screws up the cells nearby. Thank alot for all your help.

It's something wrong with my browser; the prev post was cut off. I'll try again.

Celia please read my post in the Comments box cause the one on top of the page is cut off

Mac P
Try this :-

Dim cell As Range, dest As Range
Set dest = Range("H3")
Range("H3:H8").ClearContents
For Each cell In Range("A1:F1")
If cell.Value > 0 Then
Do Until dest = ""
Set dest = dest.Offset(1, 0)
Loop
cell.Copy dest
End If
Next

Celia

P.S.
I've just looked at my code again and noticed that I've just about looped it to death.
The following shorter code will achieve the same result :-

Sub Macro1()
Dim cell As Range, dest As Range
Set dest = Range("H3")
Range("H3:H8").ClearContents
For Each cell In Range("A1:F1")
If cell.Value > 0 Then
cell.Copy dest
Set dest = dest.Offset(1, 0)
End If
Next
End Sub

Celia

Thank you so much Celia, this is exactly what I needed.

Thanks alot for your help, your last code works perfectly. By the way, if I can ask, can you recommend any manual because I would like to learn more about VBA for Excel? Thank you again zillion times.

Re: Thank you so much Celia, this is exactly what I needed.

Mac P.
As a start, you might like to try Excel Visual Basic Step by Step written by Reed Jacobson.
Celia