macro to Copy paste range skip zero values

Hi all,
I have a range of numbers AL5:AL22 (there is data below AL22) with no blanks but with zeros sometimes, appreciate providing a macro to copy this range (AL5:AL22), skip the cells with zero values and paste special (value) to the range A12.

Thanks

Heeeelp!

If unclear please let me know...

Hi Ralem,

Let's say you have this in the range starting with AL5

      AL
  5   1 
  6   2 
  7   0 
  8   0 
  9   5

In A12 you want

       A
  12   1
  13   2
  14   5

Yes Jeffery exactly..

Hi Ralem,

See if this does it for you...

Set for AL5:AL22

And results starting in A12

Sub MoveNumbers()
    Dim i As Long
    Dim j As Long
    j = 12
    For i = 5 To 22
        If Cells(i, 38).Value > 0 Then
            Cells(j, 1).Value = Cells(i, 38).Value
            j = j + 1
        End If
    Next i
End Sub

Fantastic Jeffery, thank you very very much..

I'm sure this is possible, but what about it would you want to see different?

Are you saying, if AL5:AL15 were all numbers, but from AL16:AL22 they were zero?

Yes, that's what I meant but realized it is the same for the macro you wrote...

Thanks again

You're welcome Ralem…glad it worked for you and thanks for the feedback...