My formula that should populate column K is: =SUM(J1/MACRO!G11), which
takes the value in the same row (column J) and divides into a
refereced cell, which will stay the same always. The macro should
evaluate until the end of the column.

how does the program decide where the end of the column is?
susan

On Jan 22, 2:17*pm, S Himmelrich wrote:
My formula that should populate column K is: =SUM(J1/MACRO!G11), which
takes the value in the same row (column J) and divides into a
refereced cell, which will stay the same always. *The macro should
evaluate until the end of the column.

On Jan 22, 1:17*pm, S Himmelrich wrote:
My formula that should populate column K is: =SUM(J1/MACRO!G11), which
takes the value in the same row (column J) and divides into a
refereced cell, which will stay the same always. *The macro should
evaluate until the end of the column.

Not sure I fully understood your message, but I think your looking for
a macro that will fill down the formula in Column K until it matches
the lenght of Column J? If so try this:

Sub filldown()
Dim rng As Range
' 'Fill Formula down formula in K until last J with data
Set rng = Range(Cells(1, "J"), Cells(Rows.Count, "J").End(xlUp))
rng.Offset(0, 1).Formula = "=SUM(J1/MACRO!$G$11)"
End Sub

Here is what I'm looking for, however I get an error on the row I've
designated as an error:

Dim last7 As Long
last7 = Worksheets("Working Sheet").Cells(Rows.Count,
"D").End(xlUp).Row
Range("K1").Formula = "=IF(RC[1]="","",SUM(RC[1]/MACRO!$G$11))"
Range("K1").AutoFill Destination:=Range("K1:K" & last7) <---ERROR
HERE

On Jan 22, 1:35*pm, S Himmelrich wrote:
Here is what I'm looking for, however I get an error on the row I've
designated as an error:

* * Dim last7 As Long
* * last7 = Worksheets("Working Sheet").Cells(Rows.Count,
"D").End(xlUp).Row
* * Range("K1").Formula = "=IF(RC[1]="","",SUM(RC[1]/MACRO!$G$11))"
* * Range("K1").AutoFill Destination:=Range("K1:K" & last7) *<---ERROR
HERE

Try mine but Substitue J for D, try this:

Sub filldown()
Dim rng As Range
' 'Fill Formula in K dowun until last D with data
Set rng = Range(Cells(1, "D"), Cells(Rows.Count, "D").End(xlUp))
rng.Offset(0, 7).Formula = "=IF(J1="""","""",SUM(J1/MACRO!$G
$11))"
End Sub

Check your first thread.

S Himmelrich wrote:

My formula that should populate column K is: =SUM(J1/MACRO!G11), which
takes the value in the same row (column J) and divides into a
refereced cell, which will stay the same always. The macro should
evaluate until the end of the column.

--

Dave Peterson

Solution:

Dim rng As Range
Set rng = Range(Cells(1, "D"), Cells(Rows.Count, "D").End(xlUp))
rng.Offset(0, 7).Formula = "=IF(J1="""","""",SUM(J1/MACRO!$G$11))"

You have a response to this similar post at the original thread.

S Himmelrich wrote:

Solution:

Dim rng As Range
Set rng = Range(Cells(1, "D"), Cells(Rows.Count, "D").End(xlUp))
rng.Offset(0, 7).Formula = "=IF(J1="""","""",SUM(J1/MACRO!$G$11))"

--

Dave Peterson