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" <(E-Mail Removed)> wrote in message
news:42CF5953-DB6A-4260-B170-(E-Mail Removed)...
>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" <(E-Mail Removed)> wrote in message
> news:42CF5953-DB6A-4260-B170-(E-Mail Removed)...
> >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?
>
>
>