copying and pasting ranges with hidden cells vba

[Manjunath111]

Hi All,

my query is to copy and paste the data in other work book whereas some of columns need to be hidden before pasting the data. I have used below code but not getting prom results

code :
Workbooks("CustomReport").Activate
Range("O:O,p,q:q,y:y,z:z,AA:aa,ab:ab,ac:ac,am:am,aq:aq,au:au,av:av,aw:aw").EntireColumn.Hidden = True


Workbooks("macro workbook").Activate
Range("A1").CurrentRegion.Copy


Workbooks("CustomReport").ActivateWorksheets("Transaction details").Select

lrow = Range("m" & Rows.Count).End(xlUp).Row + 1

Range("m" & lrow).SpecialCells(xlCellTypeVisible).PasteSpecial xlPasteValues

please assist