Run macro independent of cell

Hi,

I recently recorded a macro for multiplication and sorting 12 rows in excel. But when the no. of rows are increased the macro still runs only for first 12 rows. How to solve this problem?
I want my macro to count the no. of rows first and run for all the data even if the no. of rows are less than or greater than 12. Please help. Thanks in advance

Thanks
Alka

Hi,
Below is the macro code. I don't want it to directly read range but instead it should count the no. of rows first and then perform the operation on all the rows. Any help in this regard is appreciated.

Sub Alka()
Range("D1").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorDark1
.TintAndShade = -0.349986266670736
.PatternTintAndShade = 0
End With
ActiveCell.FormulaR1C1 = "Consumption"
Range("D2").Select
ActiveCell.FormulaR1C1 = "=RC[-2]*RC[-1]"
Range("D2").Select
Selection.AutoFill Destination:=Range("D2:D12"), Type:=xlFillDefault
Range("D2:D12").Select
Range("D13").Select
ActiveCell.FormulaR1C1 = "=SUM(R[-11]C:R[-1]C)"
Range("E1").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorDark1
.TintAndShade = -0.349986266670736
.PatternTintAndShade = 0
End With
ActiveCell.FormulaR1C1 = "Percentage"
Range("E2").Select
Columns("E:E").EntireColumn.AutoFit
Range("E2").Select
ActiveCell.FormulaR1C1 = "=RC[-1]/R13C4"
Range("E2").Select
Selection.AutoFill Destination:=Range("E2:E12"), Type:=xlFillDefault
Range("E2:E12").Select
Range("E13").Select
ActiveCell.FormulaR1C1 = "=SUM(R[-11]C:R[-1]C)"
Range("E2:E12").Select
ActiveWorkbook.Worksheets("Sheet2-changed").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Sheet2-changed").Sort.SortFields.Add Key:=Range( _
"E2"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _
xlSortNormal
Range("A2:E12").Select
ActiveWorkbook.Worksheets("Sheet2-changed").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Sheet2-changed").Sort.SortFields.Add Key:=Range( _
"A2"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _
xlSortNormal
Range("A1:E12").Select
ActiveWorkbook.Worksheets("Sheet2-changed").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Sheet2-changed").Sort.SortFields.Add Key:=Range( _
"E2:E12"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("Sheet2-changed").Sort
.SetRange Range("A1:E12")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Range("F1").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorDark1
.TintAndShade = -0.349986266670736
.PatternTintAndShade = 0
End With
ActiveCell.FormulaR1C1 = "cumulative"
Range("F2").Select
ActiveCell.FormulaR1C1 = "=RC[-1]"
Range("F3").Select
ActiveCell.FormulaR1C1 = "=R[-1]C+RC[-1]"
Range("F3").Select
Selection.AutoFill Destination:=Range("F3:F12"), Type:=xlFillDefault
Range("F3:F12").Select
Range("F2:F12").Select
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlBetween, _
Formula1:="=0", Formula2:="=0.7"
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Font
.Color = -16383844
.TintAndShade = 0
End With
With Selection.FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.Color = 13551615
.TintAndShade = 0
End With
Selection.FormatConditions(1).StopIfTrue = False
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlBetween, _
Formula1:="=0.7001", Formula2:="=0.9"
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Font
.Color = -16383844
.TintAndShade = 0
End With
With Selection.FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.Color = 13551615
.TintAndShade = 0
End With
Selection.FormatConditions(1).StopIfTrue = False
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlBetween, _
Formula1:="=0.9001", Formula2:="=1"
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Font
.Color = -16751204
.TintAndShade = 0
End With
With Selection.FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.Color = 10284031
.TintAndShade = 0
End With
Selection.FormatConditions(1).StopIfTrue = False
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlBetween, _
Formula1:="=0.7001", Formula2:="=0.9"
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Font
.Color = -16752384
.TintAndShade = 0
End With
With Selection.FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.Color = 13561798
.TintAndShade = 0
End With
Selection.FormatConditions(1).StopIfTrue = False
Range("I8").Select
End Sub

Hi,

Sorry I was not aware of it before.. Will keep it in mind.. Any help in solving the problem would be appreciated. Kindly help

Alka

Thank you so much Leon .. I'll check if its works for me