copying cells with data only into different workbook

[BrutalLogiC]

hey would it be possible to copy data from one work book to another but ignore any blank cells on the original workbook?

e.g. I have this one workbook where only columns A, C, E, G etc have data in them. I want to copy that data into the 2nd workbook but don't want to copy the blank cells/columns in-between (e.g. columns B, D etc.)

 

[AlphaFrog]

Try something like this...

    [COLOR=darkblue]Dim[/COLOR] wb2 [COLOR=darkblue]As[/COLOR] Workbook [COLOR=green]'Source workbook[/COLOR]
    
    [COLOR=darkblue]Set[/COLOR] wb2 = Application.Workbooks("Book2.xlsx")
    
    [COLOR=green]'Copy[/COLOR]
    Intersect(wb2.Sheets(1).UsedRange, wb2.Sheets(1).Range("A:A, C:C, E:E, G:G")).Copy
    [COLOR=green]'Paste[/COLOR]
    ThisWorkbook.Sheets(1).Range("A" & Rows.Count).End(xlUp).Offset(1).PasteSpecial xlPasteAll
    
    Application.CutCopyMode = [COLOR=darkblue]False[/COLOR]