copy paste cell with value using macro

[ramzi]

hi there,

i want to copy paste those cell with value (number and character) and not
formula.
e.g.
cell value formula
A1 4 =d1*e1
A2 sell =f2
A3 6 =d3*e3
A4 (nothing) = f4
A5 (nothing) = d5*e5

so, the macro will copy paste at A1 to A3. and ignore A4 and A5.

thanks for help.