Autofill destination incrementing date by 1...don't want it to

[Bud]

Hello

How do I change my autofill destination formula so that it doesn't increment
the value by one.

I have the following code. In column B I have placed todays date in row2
column B.

I want that same exact date in all the rows through BR. BR is the amount of
rows I want filled.

I am using Autofill destination and it is incrementing the date by one each
time.

br = Cells(Rows.Count, "b").End(xlUp).Row
strDate = Format(Now, "ddmmmyyyy")

Cells(2, "a") = "=SWIMInput!A2" 'Employee
Cells(2, "b") = strDate 'Todays date
Cells(2, "g") = "=SWIMInput!B2" 'Task Name
Cells(2, "f") = "=SWIMInput!C2" 'WBSE
Cells(2, "i") = "=SWIMInput!D2" 'Project Name
Cells(2, "a").AutoFill Destination:=Range(Cells(2, "a"), Cells(br, "a"))
Cells(2, "b").AutoFill Destination:=Range(Cells(2, "b"), Cells(br, "b"))
Cells(2, "f").AutoFill Destination:=Range(Cells(2, "f"), Cells(br, "f"))
Cells(2, "g").AutoFill Destination:=Range(Cells(2, "g"), Cells(br, "g"))
Cells(2, "i").AutoFill Destination:=Range(Cells(2, "i"), Cells(br, "i"))

 

[Mike H]

Hi,

Copy instead of autofill

Cells(2, "b").Copy Destination:=Range(Cells(2, "b"), Cells(br, "b"))

Mike

 

[Bud]

Thank You very much! This was most helpful!

Hi,

Copy instead of autofill

Cells(2, "b").Copy Destination:=Range(Cells(2, "b"), Cells(br, "b"))

Mike

 

[Mike H]

Your welcome and thanks for the feedback

Thank You very much! This was most helpful!