Your lack of information is not getting you an answer.
Try this.
if range("A1")<>0 then range("A1").copy destination:=range("F1")