Autofill from start date to end date

Hi all
I need your help again, guys.:)
I have one column(date) which I wanna set date range from VBA macro. The problem is I wanna use Autofill to fill from the start date to the specific end date, but with Autofill func I cannot do this.
I attached a sample to explain my problem. Please take a look and give me a hint to do this.
Thanx so much.

Re: Autofill from start date to end date

Hi StefanG
Yeah, it works. But can you explain for me the formula?

ActiveCell.FormulaR1C1 = "=R[-1]C+1"

Thanx so much

Re: Autofill from start date to end date

Quote from Dave Hawley

Hi linkin_anytime

The formula above is a relative one where it will always add 1 to the cell above.

Based on your example, you could use the VBA code below

Code

Range("A2:A100").DataSeries Rowcol:=xlColumns, Type:=xlChronological, Date:= _
        xlDay, Step:=1, Stop:=Range("H4"), Trend:=False

Hi Dave
It's great. It works perfectly. Thanx both of you:thumbcoo:

Re: Autofill from start date to end date

Quote from norie

Here's another way.

Code

Sub filldates()
Dim NoDays As Long
    NoDays = Range("H4") - Range("H3")
    If NoDays > 1 Then
        Range("A2") = Range("H3")
        Range("A3") = Range("H3") + 1
        
        Range("A2:A3").AutoFill Range("A2").Resize(NoDays+1)
    End If
End Sub

Thanx Norie. You broadened my mind