How to create Macro For 100 sheet data into one master sheet

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