macro to Copy paste range skip zero values

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