Anne,

For what it's worth...

In your code, LastRow is a variable, not a function.

The first part of the code sets the value of LastRow correctly as far as I can see.

In the second part of your code, I can only make it work if I change

..Range("A6").FormulaR1C1 = "=RC[5]/LastRow"
to
..Range("A6").FormulaR1C1 = "=RC[5]/" & LastRow

Don't know what you are trying to do, and what do you mean by "It is working only in certain places."

Best regards
Anders Silvén

"Anne" skrev i meddelandet ...
I am having a problem with the LastRow function. It is
working only in certain places. I am trying to use this
function on a summary page that varies everytime I import
a file. From this summary page, I am creating a chart.
I have tried various ways of doing this with no luck.
Any Suggestions? My code is below. Thanks in advance!
Anne

Dim LastRow As Long
Dim wks As Worksheet
Dim Row_Num As Integer

Range("A6").Select
Row_Num = ActiveCell.Row
Set wks = ActiveSheet
LastRow = Cells(Cells.Rows.Count, "A").End(xlUp).Row

With wks
.Range("A6").FormulaR1C1 = "=RC[5]/LastRow"
.Range("A6").AutoFill _
Destination:=.Range("A6:A" & LastRow),
Type:=xlFillCopy
End With