Simplify Recorded Macro

[Timjan]

Hi Dear Members,

I have a workbook with ten sheets, one of which is a Total Sheet. I need to extract data from at least eight sheets all from the same range and append it

in the Total Sheet to a different range. I have recorded a macro for one sheet so far but, It does not include Copying to the last row of each required

column in each of the sheets. The Recorded Macro is very basic and cumbersome, and I would like to know if any one would please be so kind as to

guide me in how to shorten the Code. Sample for one sheet shown below. How do I get it short and sweet with all of the other remaining seven

sheets included, and can it be done with the Sheet Index number, or does it have to be via the sheet name? [TABLE] <colgroup><col style="mso-width-source:userset;mso-width-alt:33901;width:695pt" width="927"> </colgroup><tbody>[TR] [TD="class: xl65, width: 927"]' Macro1 Macro[/TD] [/TR] [TR] [TD="class: xl65, width: 927"]'[/TD] [/TR] [TR] [TD="class: xl65, width: 927"][/TD] [/TR] [TR] [TD="class: xl65, width: 927"]'[/TD] [/TR] [TR] [TD="class: xl65, width: 927"] Sheets("Oos").Select[/TD] [/TR] [TR] [TD="class: xl65, width: 927"] Range("Z13:Z15").Select[/TD] [/TR] [TR] [TD="class: xl65, width: 927"] Selection.Copy[/TD] [/TR] [TR] [TD="class: xl65, width: 927"] Sheets("Totals").Select[/TD] [/TR] [TR] [TD="class: xl65, width: 927"] Range("B14").Select[/TD] [/TR] [TR] [TD="class: xl65, width: 927"] Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _[/TD] [/TR] [TR] [TD="class: xl65, width: 927"] :=False, Transpose:=False[/TD] [/TR] [TR] [TD="class: xl65, width: 927"] Application.CutCopyMode = False[/TD] [/TR] [TR] [TD="class: xl65, width: 927"] Range("D14").Select[/TD] [/TR] [TR] [TD="class: xl65, width: 927"] Sheets("Oos").Select[/TD] [/TR] [TR] [TD="class: xl65, width: 927"] ActiveWindow.ScrollColumn = 1[/TD] [/TR] [TR] [TD="class: xl65, width: 927"] Range("B13:D15").Select[/TD] [/TR] [TR] [TD="class: xl65, width: 927"] Selection.Copy[/TD] [/TR] [TR] [TD="class: xl65, width: 927"] Sheets("Totals").Select[/TD] [/TR] [TR] [TD="class: xl65, width: 927"] Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _[/TD] [/TR] [TR] [TD="class: xl65, width: 927"] :=False, Transpose:=False[/TD] [/TR] [TR] [TD="class: xl65, width: 927"] Sheets("Oos").Select[/TD] [/TR] [TR] [TD="class: xl65, width: 927"] Range("N13:N15").Select[/TD] [/TR] [TR] [TD="class: xl65, width: 927"] Application.CutCopyMode = False[/TD] [/TR] [TR] [TD="class: xl65, width: 927"] Selection.Copy[/TD] [/TR] [TR] [TD="class: xl65, width: 927"] Sheets("Totals").Select[/TD] [/TR] [TR] [TD="class: xl65, width: 927"] Range("J14").Select[/TD] [/TR] [TR] [TD="class: xl65, width: 927"] Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _[/TD] [/TR] [TR] [TD="class: xl65, width: 927"] :=False, Transpose:=False[/TD] [/TR] [TR] [TD="class: xl65, width: 927"] Sheets("Oos").Select[/TD] [/TR] [TR] [TD="class: xl65, width: 927"] Range("T13:T15").Select[/TD] [/TR] [TR] [TD="class: xl65, width: 927"] Application.CutCopyMode = False[/TD] [/TR] [TR] [TD="class: xl65, width: 927"] Selection.Copy[/TD] [/TR] [TR] [TD="class: xl65, width: 927"] Sheets("Totals").Select[/TD] [/TR] [TR] [TD="class: xl65, width: 927"] Range("P14").Select[/TD] [/TR] [TR] [TD="class: xl65, width: 927"] Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _[/TD] [/TR] [TR] [TD="class: xl65, width: 927"] :=False, Transpose:=False[/TD] [/TR] [TR] [TD="class: xl65, width: 927"] Application.CutCopyMode = False[/TD] [/TR] [TR] [TD="class: xl65, width: 927"]End Sub[/TD] [/TR] </tbody>[/TABLE] Any help would be appreciated. Thank you for your time and help. <colgroup><col style="mso-width-source:userset;mso-width-alt:33901;width:695pt" width="927"> </colgroup><tbody> </tbody>

<colgroup><col style="mso-width-source:userset;mso-width-alt:33901;width:695pt" width="927"> </colgroup><tbody>
</tbody>

 

[Fluff]

Glad you sorted it & thanks for the feedback