FIRST
I need to first run the fill down code on each page except first
worksheet - "master data".

SECOND
I need to copy data range from all existing worksheets in workbook
(copy range and code given below as PART 2) and paste to next whatever
the next available row in existing sheet "master data".



PART 1
Range("G10").Select
ActiveCell.FormulaR1C1 = "=RIGHT(R4C[-4],4)"
If IsEmpty(ActiveCell) Then Exit Sub
Range(ActiveCell, ActiveCell.Offset(0, -1).End(xlDown).Offset(0,
1)).filldown

PART 2

Rows("10:10").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy

You didn't like the answers to your previous posts.


--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"J.W. Aldridge" wrote in message
...
FIRST
I need to first run the fill down code on each page except first
worksheet - "master data".

SECOND
I need to copy data range from all existing worksheets in workbook
(copy range and code given below as PART 2) and paste to next whatever
the next available row in existing sheet "master data".



PART 1
Range("G10").Select
ActiveCell.FormulaR1C1 = "=RIGHT(R4C[-4],4)"
If IsEmpty(ActiveCell) Then Exit Sub
Range(ActiveCell, ActiveCell.Offset(0, -1).End(xlDown).Offset(0,
1)).filldown

PART 2

Rows("10:10").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy

kept trying to combine and build from suggestions to work for me but
no success.
guess i haven't graduated to piecing codes together.
may have to stick to minor manipulations to codes for now.

If desired, send your workbook to my address below along with exactly what
you want and before/after examples.

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"J.W. Aldridge" wrote in message
...
FIRST
I need to first run the fill down code on each page except first
worksheet - "master data".

SECOND
I need to copy data range from all existing worksheets in workbook
(copy range and code given below as PART 2) and paste to next whatever
the next available row in existing sheet "master data".



PART 1
Range("G10").Select
ActiveCell.FormulaR1C1 = "=RIGHT(R4C[-4],4)"
If IsEmpty(ActiveCell) Then Exit Sub
Range(ActiveCell, ActiveCell.Offset(0, -1).End(xlDown).Offset(0,
1)).filldown

PART 2

Rows("10:10").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy