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

You need to define what the activecell would be when you run the macro.
Then refer to that cell specifically. Assume the Active cell would be B2
on Data_Assembly

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

Assume that both Start_of_Report and Workarea are on Data_Assembly

--
Regards,
Tom Ogilvy


"Bruce Roberson" wrote in message
...
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