autofill help

Hi, newbie here. need some help with autofill.im doing a spreadsheet where the user will enter a start and end date,for example, start date 1/1/14 end date 31/1/14. as there are 5 weeks between 1 jan to 31 jan, so the autofill will be for 5 column,if the date difference is 7 weeks, the autofill will be for 7 column.get what i mean?im using

Sub getdate()
Dim Ans1 As Date
Dim Ans2 As Date
Do
Ans1 = InputBox("Please enter the start date", "MM/DD/YY")
Loop Until IsDate(Ans1)
Do
Ans2 = InputBox("Please enter the end date", "MM/DD/YY")
Loop Until IsDate(Ans2)
ActiveSheet.Range("B4").Value = Ans1
ActiveSheet.Range("B5").Value = Ans2
End sub

to prompt the date from the user.but im stuck at how to autofill according to the number of weeks.get what i mean?thank you in advance!

try this macro and if necessary mdify

Please Login or Register  to view this content.

Please Login or Register  to view this content.

Hi My Friend

This is my First VBA solution. Please consider experts' solutions first before mine

Please Login or Register  to view this content.

Originally Posted by amirul

thank you az-xl!

Is it what you want? Or you were expecting another answer? You didnt say anything.