Row by row...

It's really not clear what you want to copy and where you want to copy it to.

The code's also a bit confusing, for example you have a loop that appears to be looping rows but the code in it seems to be for columns and copying right.

This code will compile and run but I've no idea if it'll do what you want.

Sub FillFormulas()
Dim LastR As Long
Dim rng As Range
Dim c As String
Dim r As Integer

    LastR = Range("A" & Rows.Count).End(xlUp).Row

    c = "B"

    r = 2
    Set rng = Range(c & r)

    For r = 2 To LastR

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

    Next r

End Sub

You don't say where you get the error but I guess it's here:

Set Fill = (cr)

This should probably be:

Set Fill = Range(c & r)

Regards, TMS

Your post does not comply with Rule 1 of our Forum RULES. Your post title should accurately and concisely describe your problem, not your anticipated solution.

Use terms appropriate to a Google search. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will be addressed according to the OP's experience in the forum: If you have less than 10 posts, expect (and respond to) a request to change your thread title. If you have 10 or more posts, expect your post to be locked, so you can start a new thread with an appropriate title.

To change a Title on your post, click EDIT then Go Advanced and change your title, if 2 days have passed ask a moderator to do it for you.

Unfortunately your post does not comply with Rule 2 of our Forum RULES. Do not post a question in the thread of another member -- start your own thread.

If you feel an existing thread is particularly relevant to your need, provide a link to the other thread in your new thread.

Old threads are often only monitored by the original participants. New threads not only open you up to all possible participants again, they typically get faster response, too.

No problem.

Trevasaurus

You didn't need to start a new thread, just change the title of this one.