Dec. 15., 2006 | 12:26 pm
No:: shelter
shis makros itkaa dara to kas prasiits
Sub InsertRowsAndFormula()
Dim i As Double
Dim LastRow As Double
LastRow = Cells(65536, 1).End(xlUp).Row
For i = LastRow To 2 Step -1
Rows(i).Insert Shift:=xlDown
Cells(i, 1).FormulaR1C1 = ""
Next i
End Sub
Sub InsertRowsAndFormula()
Dim i As Double
Dim LastRow As Double
LastRow = Cells(65536, 1).End(xlUp).Row
For i = LastRow To 2 Step -1
Rows(i).Insert Shift:=xlDown
Cells(i, 1).FormulaR1C1 = ""
Next i
End Sub