Copy 3 columns and paste with varying row offsets

[Zimbo]

Hi All,

I am trying to copy three columns of information from sheet1 into sheet2.
When pasted I need the information to be spaced or offset as per below sample.
Please help.

Sheet1

Sheet2

Any help is appreciated.

Thanks

[MickG]

Hi, This works for your Data.

Please Login or Register  to view this content.

Regards Mick

[Zimbo]

Hi MickG,

Thanks for the code it works quite well.
Would it be possible to make a few changes?

1. Can the code copy only the visible range
2. Can the numbers be sequential only when there is an "Animal" in the cell to the right, currently it is numbering all including when there are spaces.

Thanks again

[MickG]

Hi, Do you mean that column "A" which showed a list of Numbers was infact the Row Ref, and Column "A" should have been the next column Shown as Column (B), which should have been the starting point.
also,what do you mean by visible Range.
How many columns do you want to be included in your Data.
Mick

[Zimbo]

Hi Mick,

Yes column "A" was the Row Ref, and Column "A" should have been the next column Shown as Column (B), which should have been the starting point.
What I meant by visible Range is if I hide any Rows they will not be copied or pasted.
I only need 3 columns but may need to add one or two at a later stage, is this something that could be a variable.

Sorry I hadn't been more specific initially.

Thanks

[MickG]

Hi, give this a try:- It should take care of extra columns (by you physically)altering the Variable "col" at top of code to suit and it should now only show the Rows that aren't Hidden.

Please Login or Register  to view this content.

Regards Mck

[Zimbo]

Hi Mick,

Your code works perfectly.

Thanks for your time.

Cheers