Hi,

Need help from you Guys. I want to create a personal macro that will
copy a range from the active cell down below (more likely up to 400
rows). I need your code / help very badly.

Thanks in advance.

Jerome

Hi Jerome

One column
Range(ActiveCell, ActiveCell.End(xlDown)).copy

or if you want to copy all column in the range

Range(ActiveCell, ActiveCell.End(xlDown)).EntireRow.copy

Regards,
Per

"jhong" <(E-Mail Removed)> skrev i meddelelsen
news:980a9360-804f-412a-8f27-(E-Mail Removed)...
> Hi,
>
> Need help from you Guys. I want to create a personal macro that will
> copy a range from the active cell down below (more likely up to 400
> rows). I need your code / help very badly.
>
> Thanks in advance.
>
> Jerome

Copy to where?

Sub copy_column()
Dim rng2 As Range
Set rng2 = Sheets("Sheet2").Range("A1")
Range(ActiveCell, Cells(Rows.Count, ActiveCell.Column) _
.End(xlUp)).Copy Destination:=rng2
End Sub

Best to select from bottom up in case there blank cells in the range.

xlDown will stop at first blank cell.


Gord Dibben MS Excel MVP

On Wed, 9 Jul 2008 01:03:27 -0700 (PDT), jhong <(E-Mail Removed)> wrote:

>Hi,
>
>Need help from you Guys. I want to create a personal macro that will
>copy a range from the active cell down below (more likely up to 400
>rows). I need your code / help very badly.
>
>Thanks in advance.
>
>Jerome

On Jul 10, 6:37*am, Gord Dibben <gorddibbATshawDOTca> wrote:
> Copy to where?
>
> Sub copy_column()
> Dim rng2 As Range
> * * Set rng2 = Sheets("Sheet2").Range("A1")
> * * * *Range(ActiveCell, Cells(Rows.Count, ActiveCell.Column) _
> * * .End(xlUp)).Copy Destination:=rng2
> End Sub
>
> Best to select from bottom up in case there blank cells in the range.
>
> xlDown will stop at first blank cell.
>
> Gord Dibben *MS Excel MVP
>
>
>
> On Wed, 9 Jul 2008 01:03:27 -0700 (PDT), jhong <jerome.tam...@gmail.com> wrote:
> >Hi,
>
> >Need help from you Guys. I want to create a personal macro that will
> >copy a range from the active cell down below (more likely up to 400
> >rows). I need your code / help very badly.
>
> >Thanks in advance.
>
> >Jerome- Hide quoted text -
>
> - Show quoted text -

Thanks a lot Jessen and Gord for the reply! Here's the code that i
need coming from Gord, Range(ActiveCell, Cells(Rows.Count,
ActiveCell.Column).End(xlUp)).Copy
Kudos to both of you!!

Now that you have copied the range, what will you do with it?

You don't always have to select something to copy or move it.

But if you're happy with what you've got.........OK

Thanks for the feedback


Gord

On Fri, 11 Jul 2008 06:00:15 -0700 (PDT), jhong <(E-Mail Removed)> wrote:

>Thanks a lot Jessen and Gord for the reply! Here's the code that i
>need coming from Gord, Range(ActiveCell, Cells(Rows.Count,
>ActiveCell.Column).End(xlUp)).Copy
>Kudos to both of you!!