Try this :-
Code
-------------------
Sub test()
Dim FromSheet As Worksheet
Dim ToSheet As Worksheet
Dim FromRow As Long
Dim Torow As Long
'-
Dim FromDate As Date
Dim ToDate As Date
Dim Days As Integer
'-------------------------
Set FromSheet = ActiveSheet
FromRow = 2
Set ToSheet = Worksheets("Detail")
Torow = 2
While FromSheet.Cells(FromRow, 1).Value < ""
FromDate = FromSheet.Cells(FromRow, 2).Value
Days = FromSheet.Cells(FromRow, 4).Value
For d = 0 To Days
ToSheet.Cells(Torow, 1).Value = _
FromSheet.Cells(FromRow, 1).Value
ToSheet.Cells(Torow, 2).Value = FromDate + d
ToSheet.Cells(Torow, 3).Value = _
FromSheet.Cells(FromRow, 5).Value
Torow = Torow + 1
Next
FromRow = FromRow + 1
Wend
MsgBox ("Done")
End Sub
-------------------
--
Message posted from
http://www.ExcelForum.com