Loop for Formula Check and Autofill

[Coach3131]

I am trying to implement a vba module that will take a current sheet and check the first data entry for each row and see if it is a formula. If it is, then autofill from that cell to the last column.

For example on row 3, the first column with data may be H... so I would want to autofill from H3 to last column on row 3 then continue to check row 4. If the first data in row 4 is not a formula, then skip it and go to row 5, etc. What is the best way to organize this loop?

 

[Coach3131]

Following up since it dropped to 3rd page without any views.

 

[MickG]

Try:-

[COLOR="Navy"]Sub[/COLOR] MG03Jun09
[COLOR="Navy"]Dim[/COLOR] Rng [COLOR="Navy"]As[/COLOR] Range, Dn [COLOR="Navy"]As[/COLOR] Range, Ac [COLOR="Navy"]As[/COLOR] [COLOR="Navy"]Long[/COLOR]
[COLOR="Navy"]Set[/COLOR] Rng = Range("A1:A100")
[COLOR="Navy"]For[/COLOR] [COLOR="Navy"]Each[/COLOR] Dn [COLOR="Navy"]In[/COLOR] Rng
    [COLOR="Navy"]For[/COLOR] Ac = 1 To Columns.Count
        [COLOR="Navy"]If[/COLOR] Dn(, Ac) <> "" And Dn(, Ac).HasFormula [COLOR="Navy"]Then[/COLOR]
            Dn(, Ac).Resize(, Columns.Count - Ac + 1).Formula = Dn(, Ac).Formula
            [COLOR="Navy"]Exit[/COLOR] For
        [COLOR="Navy"]End[/COLOR] If
    [COLOR="Navy"]Next[/COLOR] Ac
[COLOR="Navy"]Next[/COLOR] Dn
[COLOR="Navy"]End[/COLOR] [COLOR="Navy"]Sub[/COLOR]

Regards Mick