Hello,

I've set up a Macro to port completed data (meaning a line/row of data) to
another page "OMNI". The sheet is formatted so there are 46 rows of data and
this is my "catch area" (formatted page that has headings in column A as well
as row 1 & 2. It needs to be this way since some data stays here until it's
expired and all is calculated on row 47. For every line that is moved to the
"OMNI", a new line must be entered but the rest of the data pushed up so
there is not just a blank line.

I'm looking for a Loop Macro to do the same thing as I've tried to achieve
in the Macro below. Currently, I am using a Target Value and once the box in
that named row is touched, the line will automatically copy and paste to
another sheet in my workbook. This works, but is not the best way to go
since people using this spreadsheet might accidentally touch this row and
than the data is moved prematurely.

Below is both an example of my current Macro and an example of my excel table.

Thank you for your thoughts - Jenny B.

__________________________________________________ ________________________
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.ScreenUpdating = False
If Not Intersect(Target, Range("b3")) Is Nothing Then
Sheets("omni").Range("a3:ac3").Insert Shift:=xlDown
Range("d3:ad3").Copy Destination:=Sheets("omni").Range("a3:aa3")
Range("C3:AE3").Select
Selection.Delete Shift:=xlUp
Range("C45:AE45").Select
Selection.Insert Shift:=xlDown
ActiveWindow.ScrollRow = 3
Range("d3").Select
ElseIf Not Intersect....................................<and so on and so on
through Range("b46")

__________________________________________________ ____________
A B C D
E F.....<all the way to AE
Date Company Div Group Response Rate
TAT Reports

1 1/1/2007 Paint Division IT 72%
7 8

2 2/1/2006 Electronics C&G 51%
8 23

3 3/1/2007 Automotive Trans 63%
9 25

4

""
""
47 (row 47 used to Avg certain columns) <Cell Avgs all Response Rates
<Cell Avgs Turn Around <Cell Avgs Number of Reports