I think this will get you started....

Sub RequiredDate()

Dim rizange, rizaange, a_range, b_range As Range
Dim Count As Integer

Set rizange = Range("H2:H8")

Count = 2
For Each a_range In rizange
If a_range < "" Then
Range("j" & a_range.Row).Select
ActiveCell.Formula = "=E" & Count & "+10"
Count = Count + 1
End If
Next

End Sub


--
mthomas
------------------------------------------------------------------------
mthomas's Profile: http://www.excelforum.com/member.php...o&userid=25649
View this thread: http://www.excelforum.com/showthread...hreadid=395460