I have the following:

Dim vtInput() As Variant
totalrows = ActiveSheet.UsedRange.Rows.Count
vtInput = Range(Cells(1, 1), Cells(totalrows, 2))
Sheets("BB DATA").Select
ActiveSheet.Range(Cells(5, 1), Cells(totalrows, 2)) = vtInput

The above works fine.

Now, if I change the last line to: ActiveSheet.Range(Cells(5, 1),
Cells(totalrows, 1)) = vtInput;
that works fine as well, giving me the first column of my 2-dimension
array.

How can I paste only the second column of my array?

TIA

CORRECTION:

I am pasting to Row 1.

ActiveSheet.Range(Cells(5, 1), Cells(totalrows, 1)) = _
Application.Index(vtInput, 0, 2)

Alan Beban

JingleRock wrote:
> I have the following:
>
> Dim vtInput() As Variant
> totalrows = ActiveSheet.UsedRange.Rows.Count
> vtInput = Range(Cells(1, 1), Cells(totalrows, 2))
> Sheets("BB DATA").Select
> ActiveSheet.Range(Cells(5, 1), Cells(totalrows, 2)) = vtInput
>
> The above works fine.
>
> Now, if I change the last line to: ActiveSheet.Range(Cells(5, 1),
> Cells(totalrows, 1)) = vtInput;
> that works fine as well, giving me the first column of my 2-dimension
> array.
>
> How can I paste only the second column of my array?
>
> TIA
>

You're pasting the second column of the array to Row 1 of some range????

Alan Beban

JingleRock wrote:
> CORRECTION:
>
> I am pasting to Row 1.
>

Alan, Thanks very much -- that is exactly what I was looking for.
Sorry about the confusion re: my CORRECTION. What I was trying to
say was that I was pasting exactly the same number of rows to my Sheet
that are in my Array, but I now see that is not a necessity.
Thanks again for your prompt reply.