How to create Macro For 100 sheet data into one master sheet
Every sheet having different column and different row (10 to 12 column & 130 to 160 Row)
I use simple method for create macro
first i do manually & record macro
No problem with different column but every sheet having different row that it was not works
Help me
how to give range last line
Range("A1").Select
Range("A21").Select
Range("A37").Select
See the code of this macro
![]()
Sub Macro7() ' ' Macro7 Macro ' Macro recorded 9/23/2012 by Datta ' ' Keyboard Shortcut: Ctrl+j ' ActiveSheet.Next.Select ActiveCell.SpecialCells(xlLastCell).Select Range(Selection, Cells(1)).Select Selection.Copy ActiveSheet.Previous.Select ActiveSheet.Paste ActiveSheet.Next.Select ActiveSheet.Next.Select ActiveCell.SpecialCells(xlLastCell).Select Range(Selection, Cells(1)).Select Application.CutCopyMode = False Selection.Copy ActiveSheet.Previous.Select ActiveSheet.Previous.Select ActiveCell.SpecialCells(xlLastCell).Select Range("A1").Select ActiveCell.SpecialCells(xlLastCell).Select Selection.End(xlDown).Select Selection.End(xlToLeft).Select Selection.End(xlUp).Select Range("A21").Select ActiveSheet.Paste ActiveSheet.Next.Select ActiveSheet.Next.Select ActiveSheet.Next.Select ActiveCell.SpecialCells(xlLastCell).Select Range(Selection, Cells(1)).Select Application.CutCopyMode = False Selection.Copy ActiveSheet.Previous.Select ActiveSheet.Previous.Select ActiveSheet.Previous.Select ActiveCell.SpecialCells(xlLastCell).Select Selection.End(xlDown).Select Selection.End(xlToLeft).Select Selection.End(xlUp).Select Range("A37").Select ActiveSheet.Paste End Sub
Bookmarks