HOW TO INSEART BLANK ROW IN MULTIPLE DATA

[parbatidebnath]

INPUT

1

2

3

4

5


OUTPUT

1


2


3


4


5


THANKS & REGARDS

PARBATI DEBNATH

 

[NARAYANK991]

Hi Debnath ,


Try this :

[pre]

Public Sub Insert_Blank_Rows()
Dim input_range As Range
Set input_range = Nothing
On Error Resume Next
Set input_range = Application.InputBox("Select the range within which you want to insert blank rows :", , , , , , , 8)
On Error GoTo 0
If input_range Is Nothing Then Exit Sub
Application.ScreenUpdating = False
input_range.Select
number_of_rows = Selection.Rows.Count
For i = 1 To number_of_rows - 1
input_range.Cells(i, 1).Offset(i, 0).EntireRow.Insert
Next
Set input_range = Nothing
Application.ScreenUpdating = True
End Sub

[/pre]
Narayan