VBA AutoFill Formula

[Vin90]

I'm currently working on small macro that can be used to autofill empty cells with certain formula, and I have two questions:

I create UserForm to input the data on the desired worksheet. I have assigned column A and E:AM for the input, and leave cloumn B:D empty.

In the data entry, I have date on column A, and wish to autofill column B,C and D with year, month, and weeknum of the corresponding date.

I'm using this code in modules group but somehow it doesn't work as expected:

Sub FillDown()
Dim strFormulas(1 To 3) As Variant
With ThisWorkbook.Sheets("Data")
    strFormulas(1) = "=YEAR(A2)"
    strFormulas(2) = "=MONTH(A2)"
    strFormulas(3) = "=ISOWEEKNUM(A2)"
    
    .Range("B2:D2").Formula = strFormulas
    .Range("B2:D" & lRow).FillDown
End With
End Sub

Questions:
1. Is there something wrong with the aforementioned code?
2. Is there any way to combine this autofill to the commandbutton_click in my userform?

 

[sericom]

You haven't assigned lRow a value, maybe add this

lRow = Cells(Rows.Count, 2).End(xlUp).Row

 

[Vin90]

It doesn't show the previous error, but it still doesn't work properly..
they copy the value from B1:D1 instead of the wanted formula..

Sub FillDown()
Dim strFormulas(1 To 3) As Variant
With ThisWorkbook.Sheets("Data")
    strFormulas(1) = "=YEAR(A2)"
    strFormulas(2) = "=MONTH(A2)"
    strFormulas(3) = "=ISOWEEKNUM(A2)"
    lRow = Cells(Rows.Count, 2).End(xlUp).Row
        
    .Range("B2:D2").Formula = strFormulas
    .Range("B2:D" & lRow).FillDown
End With
End Sub

 

[sericom]

May need to change the lRow line to this

lRow = .Cells(.Rows.Count, 1).End(xlUp).Row