Autofill with VBA

[BrittKnee]

Hey all. I am using the following code to attempt to autofill a formula to the last row as defined. I am receiving a 400 error and was wondering if anyone has a solution. Thanks

Dim lastRow As Long
lastRow = Range("L" & Rows.Count).End(xlUp).Row
Sheets("FYXX-XX Charity Care Logs").Range("B10").Select
Sheets("FYXX-XX Charity Care Logs").Range("B10") = "=IF(RC[7]>1,""Insured"",""Uninsured"")"
Sheets("FYXX-XX Charity Care Logs").Range("B10").AutoFill Destination:=Range("B10:B" & lastRow)

 

[shg]

How about instead,

Sub BK()
  With Sheets("FYXX-XX Charity Care Logs")
    .Range("B10", .Cells(.Cells(.Rows.Count, "L").End(xlUp).Row, "B")).Formula = "=IF(RC[7]>1, ""Insured"", ""Uninsured"")"
  End With
End Sub