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