Copy, Paste values from One workbook To another, no header

Hi,

I need to hide columns, copy visible data below the header from workbook 1, Open workbook 2 and paste the selection from workbook 1 into the next available row.

I have provided the code I have been working with below and any suggestions would be greatly appreciated. Please let me know if more information is required.

Please Login or Register  to view this content.

Thanks for the response xladept,

It still does not want to paste the selected range. Error at ActiveSheet.Range("A" & Rows.count).End(xlUp).Offset(1).Paste (nothing to paste)

Once the 2nd workbook is opened it loses the info on the clipboard and stops the code.

Is there a way to keep the information copied from the first workbook Active or would it have to be called after the workbook is open?

Please Login or Register  to view this content.

Hi Xladept

The sub routine works. The paste function is doing exactly what is needed. Is there a way to clean up the copy section of the sub routine and Only have one SET statement.

Is it possible to combine Set rng and Set R to speed up the code?

Set rng = Range("A3:DL" & Range("A3:DL3").End(xlDown).row): 'rng.Activate

Range( _
"F:K,O:Q,U:U,W:AC,AE:AJ,AN:AN,AP:AP,AR:AR,AT:AT,AV:AY,BA:BD,BF:BF,BI:BM,BP:BQ,BS:CC,CE:DE" _
).EntireColumn.Hidden = True
Set R = ActiveSheet.UsedRange.SpecialCells(xlCellTypeVisible)

You help is greatly appreciated and I have added to your reputation, thank you.