Row by row...

Hi.
I'm trying to get a formula to autofill, row by row, until the bottom row. I have the last row figured out, but I'm having trouble getting my loop to work.

Here's what I have so far.

Sub Fill()
Dim LastR As Long
LastR = Range("A" & Rows.Count).End(xlUp).Row
Dim Fill As Range
Dim c As String
Set c = "B"
Dim r As Integer
Set r = 2
Set Fill = (cr)

For r = 2 To LastR

With Fill
    .Resize(, Cells(1, Columns.Count).End(xlToLeft).Column - 1).FillRight
End With

Next r

End Sub

My goal is to have the formulas in Column "B" auto fill to the right from "B2" to "B & the last row or 'LastR'

I keep getting an 'Object Required' error and I don't know what to do next.

Any help is greatly appreciated.