Salam dosto mujhy aik macro ki zaroorat hai...pls help

[KashifH]

dosto mujhy excel me aik macro ki zaroorat hai jis se run karny per har raw k bad 3 blank row insert ho jayen.
pls help me.

[Ahmed220]

Kashif bhai ap apni problem is thread me post karein taki wahan apki help ki ja sake http://www.itdunya.com/t300546/

[syar]

dosto mujhy excel me aik macro ki zaroorat hai jis se run karny per har raw k bad 3 blank row insert ho jayen.
pls help me.

Sub InsRows()
Dim LR As Long, i As Long, j As Integer
LR = Cells(Rows.Count, "A").End(xlUp).Row
For i = LR To 3 Step -1
   RCnt = WorksheetFunction.CountA(Rows(i))
   Rows(i & ":" & i + 2).Insert Shift:=xlDown
Next i
End Sub

regards

[KashifH]

Sub InsRows()
Dim LR As Long, i As Long, j As Integer
LR = Cells(Rows.Count, "A").End(xlUp).Row
For i = LR To 3 Step -1
   RCnt = WorksheetFunction.CountA(Rows(i))
   Rows(i & ":" & i + 2).Insert Shift:=xlDown
Next i
End Sub

regards

Thanks so much yar ye bilkul ok kam kar rha hai.......
boht shokriya syar bro.