Runtime Error 1004 with Macro

[VinceF]

Help please...

Trying to make a Macro to do this,
in cell L5 I put in the formula =IF(K5="","",RAND()) and drag it down to cell L44
When I execute the Macro I get a Runtime Error 1004

Sub UNLOCKGROUPS()
'
' UNLOCKGROUPS Macro
'

'
ActiveCell.FormulaR1C1 = "=IF(RC[-1]="""","""",RAND())"
Range("L5").Select
Selection.AutoFill Destination:=Range("L5:L44"), Type:=xlFillDefault
Range("L5:L44").Select
Range("L3").Select
End Sub

Much Appreciated
VinceF
excel 2016

 

[Joe4]

You do not need autofill, you can assign the formula to the whole range at once, like this:

Sub UNLOCKGROUPS()
'
' UNLOCKGROUPS Macro

    Range("L5:L44").FormulaR1C1 = "=IF(RC[-1]="""","""",RAND())"

End Sub

One line of code - that is all you need!

 

[VinceF]

Thank you Joe...works great

VinceF

 

[Joe4]

You are welcome.
Glad I was able to help!