add cell

[ROLG]

i have a long list all in one column. the data in the first fifteen (
thrue 15) is related and must be kept in sequence. the first fiftee
cells repeats with changes in its data for the next fifteen (16 thru
30) and also must be kept in sequence. this repeats over and over for
list of about 4000 cells.
what i need to do is this: i need to insert an empt
cell betwwn each group of fifteen cells.-to seperate them. between
15 & 16, 30 & 31 etc without disturbing the continuity of each 15 cel
grouping..

thankyou so much

 

[Dave Peterson]

This worked ok for me:

Option Explicit
Sub testme()
Dim iCtr As Long
Dim LastRow As Long
Dim myRng As Range
With ActiveSheet
LastRow = .Cells.SpecialCells(xlCellTypeLastCell).Row
Set myRng = Nothing
For iCtr = 16 To LastRow Step 15
If myRng Is Nothing Then
Set myRng = .Cells(iCtr, "A")
Else
Set myRng = Union(.Cells(iCtr, "A"), myRng)
End If
Next iCtr
End With

If myRng Is Nothing Then
'do nothing
Else
myRng.EntireRow.Insert
End If
End Sub

 

[ROLG]

thankyou for your very appreciated help