last cell and copy

[BNT1 via OfficeKB.com]

Hi

I want to use VBA to copy columns a,b,c,e,f,g (excluding D as this is hidden)
together with the last 6 columns that have values in, into another sheet. The
cells that are blank do have formulas in them, but appear blank. My main data
starts in row 4, with the other rows above being column headers etc.. I have
attempted to record a macro, and inserting activecell.end(xltoright), which
gets me to theend cell, but get stuck on how to copy the preceeding 5 columns

Any direction/coding appreciated

Brian

 

[Dallman Ross]

I want to use VBA to copy columns a,b,c,e,f,g (excluding D as
this is hidden) together with the last 6 columns that have values
in, into another sheet. The cells that are blank do have formulas
in them, but appear blank. My main data starts in row 4, with

I succeeded at a very similar project last month using Ron
de Bruin's great sample code to start and then changing it
with help from this group.

http://www.rondebruin.nl/tips.htm

E.g., http://www.rondebruin.nl/copy6.htm
"Create a workbook from every worksheet in your workbook"