Maybe like this:

Code:
--------------------
Sub macro2()
Dim cell As Range

For Each cell In Range("F1", Cells(Rows.Count, "F").End(xlUp))
If cell.HasFormula And IsNumeric(cell.Offset(1).Value) Then
cell.Copy Destination:=cell.Offset(2, 4)
End If
Next cell
End Sub

--------------------


--
shg
------------------------------------------------------------------------
shg's Profile: http://www.thecodecage.com/forumz/member.php?userid=13
View this thread: http://www.thecodecage.com/forumz/sh...ad.php?t=30569