VBA for LastRow to copy formula down fails

[Tarver]

I'm trying to insert a formula and copy it down to the last row of the data it's working on.

Sub InsertAndCopyFormula()
    Sheets("PasteData").Select
    Range("L2:L" & LastRow).Formula = "=MONTH(I2)"
End Sub

When I execute this code, I get the error "Run-time error '1004': Method 'Range' of object '_Global' failed.

Is there something wrong with my syntax here, or something else I'm missing?

Thanks in advance for your help!

 

[RoryA]

You haven't assigned a value to LastRow so you're trying to refer to L0 which doesn't exist.

 

[Tarver]

So if I assign a value to LastRow like this, it still gives me an error:

Sub InsertAndCopyFormula()
    Dim LastRow As Long
    Sheets("PasteData").Select
    LastRow = ActiveSheet.UsedRange.Rows.Count
    Range("L2:L" & LastRow).Formula = "=MONTH(I2)"
End Sub

I've also seen online that perhaps the LastRow should be set a different way:

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

Both of these methods fail.

 

[Scott T]

To find the last row. This finds the last row in column A use a column you should use a column that will always have data

LastRow = Cells(Rows.Count, "A").End(xlUp).Row

 

[Fluff]

You're code works for me, what error do you get & what line is higlighted

 

[RoryA]

So if I assign a value to LastRow like this, it still gives me an error:

What error?