Does anyone know how I can programatically copy the 1st 3 columns and the 5th
column of the current row my cursor is on to the next available blank row in
the same worksheet?

Thank you,

Sarah

Dim rng as Range
set rng = cells(activecell.row,1).Range("A1:C1,E1")
rng.copy Cells(rows.count,1).End(xlup)(2)

that will put the copies in column A. If you want to keep them in the
same columns

Dim lastrow as Long
lastrow = cells(rows.count,1).End(xlup)(2).row
cells(Activecell.Row,1).Resize(1,3).copy cells(lastrow,1)
cells(activecell.row,5).copy cells(lastrow,5)

--
Regards,
Tom Ogilvy


"Sarah" wrote:

> Does anyone know how I can programatically copy the 1st 3 columns and the 5th
> column of the current row my cursor is on to the next available blank row in
> the same worksheet?
>
> Thank you,
>
> Sarah

Thanks Tom... you're a genius!

Sarah

"Tom Ogilvy" wrote:

> Dim rng as Range
> set rng = cells(activecell.row,1).Range("A1:C1,E1")
> rng.copy Cells(rows.count,1).End(xlup)(2)
>
> that will put the copies in column A. If you want to keep them in the
> same columns
>
> Dim lastrow as Long
> lastrow = cells(rows.count,1).End(xlup)(2).row
> cells(Activecell.Row,1).Resize(1,3).copy cells(lastrow,1)
> cells(activecell.row,5).copy cells(lastrow,5)
>
> --
> Regards,
> Tom Ogilvy
>
>
> "Sarah" wrote:
>
> > Does anyone know how I can programatically copy the 1st 3 columns and the 5th
> > column of the current row my cursor is on to the next available blank row in
> > the same worksheet?
> >
> > Thank you,
> >
> > Sarah