View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
J.W. Aldridge J.W. Aldridge is offline
external usenet poster
 
Posts: 425
Default Please help combine two simple codes!

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