I have a macro set-up to copy information into columns A:K. This information
will change each time. There is a formula in L,M and N. I would like a macro
that would copy the formulas down to the final row of the info in column K.
Any suggestions?

Assume the formulas are in row 1

Sub ABC()
Dim rng as Range
Set rng = Cells(Rows.Count, "K").End(xlUp)
Range("L1:N1").AutoFill Range("L1:N1").Resize(rng.Row, 3)
End Sub

--
Regards,
Tom Ogilvy


"WolfgangPD" wrote:

I have a macro set-up to copy information into columns A:K. This information
will change each time. There is a formula in L,M and N. I would like a macro
that would copy the formulas down to the final row of the info in column K.
Any suggestions?

Thanks Tom. That worked but is seems to copy the formula to one extra row.
Not a big deal. I'm just curious why.

"Tom Ogilvy" wrote:

Assume the formulas are in row 1

Sub ABC()
Dim rng as Range
Set rng = Cells(Rows.Count, "K").End(xlUp)
Range("L1:N1").AutoFill Range("L1:N1").Resize(rng.Row, 3)
End Sub

--
Regards,
Tom Ogilvy


"WolfgangPD" wrote:

I have a macro set-up to copy information into columns A:K. This information
will change each time. There is a formula in L,M and N. I would like a macro
that would copy the formulas down to the final row of the info in column K.
Any suggestions?

Ok, I just figured it out. I have headers in row one so how can I subtract
one?

"WolfgangPD" wrote:

Thanks Tom. That worked but is seems to copy the formula to one extra row.
Not a big deal. I'm just curious why.

"Tom Ogilvy" wrote:

Assume the formulas are in row 1

Sub ABC()
Dim rng as Range
Set rng = Cells(Rows.Count, "K").End(xlUp)
Range("L1:N1").AutoFill Range("L1:N1").Resize(rng.Row, 3)
End Sub

--
Regards,
Tom Ogilvy


"WolfgangPD" wrote:

I have a macro set-up to copy information into columns A:K. This information
will change each time. There is a formula in L,M and N. I would like a macro
that would copy the formulas down to the final row of the info in column K.
Any suggestions?

I am unable to figure this out. I have headers in row one. The formulas I
need copied don't start until row 2. Thanks!

"WolfgangPD" wrote:

Ok, I just figured it out. I have headers in row one so how can I subtract
one?

"WolfgangPD" wrote:

Thanks Tom. That worked but is seems to copy the formula to one extra row.
Not a big deal. I'm just curious why.

"Tom Ogilvy" wrote:

Assume the formulas are in row 1

Sub ABC()
Dim rng as Range
Set rng = Cells(Rows.Count, "K").End(xlUp)
Range("L1:N1").AutoFill Range("L1:N1").Resize(rng.Row, 3)
End Sub

--
Regards,
Tom Ogilvy


"WolfgangPD" wrote:

I have a macro set-up to copy information into columns A:K. This information
will change each time. There is a formula in L,M and N. I would like a macro
that would copy the formulas down to the final row of the info in column K.
Any suggestions?

Sub ABC()
Dim rng As Range
Set rng = Cells(Rows.Count, "K").End(xlUp)
Range("L2:N2").AutoFill Range("L2:N2").Resize(rng.Row - 1, 3)
End Sub


Mike F
"WolfgangPD" wrote in message
...
I am unable to figure this out. I have headers in row one. The formulas I
need copied don't start until row 2. Thanks!

"WolfgangPD" wrote:

Ok, I just figured it out. I have headers in row one so how can I
subtract
one?

"WolfgangPD" wrote:

Thanks Tom. That worked but is seems to copy the formula to one extra
row.
Not a big deal. I'm just curious why.

"Tom Ogilvy" wrote:

Assume the formulas are in row 1

Sub ABC()
Dim rng as Range
Set rng = Cells(Rows.Count, "K").End(xlUp)
Range("L1:N1").AutoFill Range("L1:N1").Resize(rng.Row, 3)
End Sub

--
Regards,
Tom Ogilvy


"WolfgangPD" wrote:

I have a macro set-up to copy information into columns A:K. This
information
will change each time. There is a formula in L,M and N. I would
like a macro
that would copy the formulas down to the final row of the info in
column K.
Any suggestions?

Thanks Mike! I was trying to adjust the range. You just made my morning.
And quite possibly my whole week!

"Mike Fogleman" wrote:

Sub ABC()
Dim rng As Range
Set rng = Cells(Rows.Count, "K").End(xlUp)
Range("L2:N2").AutoFill Range("L2:N2").Resize(rng.Row - 1, 3)
End Sub


Mike F
"WolfgangPD" wrote in message
...
I am unable to figure this out. I have headers in row one. The formulas I
need copied don't start until row 2. Thanks!

"WolfgangPD" wrote:

Ok, I just figured it out. I have headers in row one so how can I
subtract
one?

"WolfgangPD" wrote:

Thanks Tom. That worked but is seems to copy the formula to one extra
row.
Not a big deal. I'm just curious why.

"Tom Ogilvy" wrote:

Assume the formulas are in row 1

Sub ABC()
Dim rng as Range
Set rng = Cells(Rows.Count, "K").End(xlUp)
Range("L1:N1").AutoFill Range("L1:N1").Resize(rng.Row, 3)
End Sub

--
Regards,
Tom Ogilvy


"WolfgangPD" wrote:

I have a macro set-up to copy information into columns A:K. This
information
will change each time. There is a formula in L,M and N. I would
like a macro
that would copy the formulas down to the final row of the info in
column K.
Any suggestions?