I am refining all the selects etc, so I am going to post
just pieces that I am having difficulty with in my
refining techniques.

Rather than this:

Sheets("Data_Assembly").select
Range("Workarea").select
ActiveCell.Resize(2).Value =
Range("Start_of_Report").Resize(2).Value
Range(ActiveCell, ActiveCell.End(xlDown)).Copy
Range("WorkArea").CurrentRegion.Clear

I tried it this way:

With Sheets("Data_Assembly").Range("Workarea")
ActiveCell.Resize(2).Value =
Range("Start_of_Report").Resize(2).Value
Range(ActiveCell, ActiveCell.End(xlDown)).Copy
Range("WorkArea").CurrentRegion.Clear
End With



The problem with this way, is that when the Activecell
command is called, it doesn't work, because the
sheet "Import" was where the last active cell was. So,
neither Activecell.whatever or cells(whatever) works in
this case. It puts those resized values in the active cell
in another worksheet this way.

Maybe the With method is not the right way to go here.
Please look at this from that perspective and tell me how
to do the resize for 2 cells for which the resize from and
the resize to ranges are both on the sheet "Data_Assembly".

Thanks,


Bruce