AutoFill method of Range class failed

[Ossian13]

Hi everyone,

im trying to Autofill rows within a column with a formula and im using this :

 Range("G2").Select    ActiveCell.FormulaR1C1 = "=LEFT(H2,10)"
    Columns("G:G").Select

Range("G2").Select
    Selection.AutoFill Destination:=Range("G" & Rows.Count).End(xlUp)

And i get the error from the title. Could someone tell me what i wrote wrong here? Or what have i missed?

Thank you,
Ossian

 

[Ossian13]

i found the solution, i will paste here if someone might need it also.

Range("G2").Select
    If Lastrow > 2 Then
    Range("G2").AutoFill Destination:=Range("G2:G" & Lastrow)
    End If

This piece of if made the thing work. I found it also here on forum but in older posts.

Cheers,
Ossian.

 

[Fluff]

FYI
you could also use

Range("G2:G" & LastRow).Formula = "=Left(H2,10)"

 

[Ossian13]

Yes, it is very simple and elegant. Thanks!

 

[Fluff]

You're welcome