Hi Everyone,

I have a doubt in Excel Macro.

I have the data in 100 sheets in one book. Just i want to consolidated all the 100 sheets data into one excel sheet for which i have recorded the macro for the 4 sheets.

Is there any short cut way to modify to complete 100 sheets code.

It would be very helpful if anyone can help.

Thanks


ActiveSheet.Next.Select
Range("A1:L2").Select
ActiveSheet.Previous.Select
Range("A27").Select
ActiveSheet.Next.Select
Range("A1:M70").Select
Selection.Copy
ActiveSheet.Previous.Select
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=63
Range("A100").Select
ActiveSheet.Next.Select
ActiveSheet.Next.Select
Range("A1:O70").Select
Application.CutCopyMode = False
Selection.Copy
ActiveSheet.Previous.Select
ActiveSheet.Previous.Select
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=63
Range("A180").Select
ActiveSheet.Next.Select
ActiveSheet.Next.Select
ActiveSheet.Next.Select
Range("A1:O70").Select
Application.CutCopyMode = False
Selection.Copy
ActiveSheet.Previous.Select
ActiveSheet.Previous.Select
ActiveSheet.Previous.Select
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=63
Range("A270").Select
ActiveSheet.Next.Select
ActiveSheet.Next.Select
ActiveSheet.Next.Select
ActiveSheet.Next.Select
Range("A1:O70").Select
Application.CutCopyMode = False
Selection.Copy
ActiveSheet.Previous.Select
ActiveSheet.Previous.Select
ActiveSheet.Previous.Select
ActiveSheet.Previous.Select
ActiveSheet.Paste