INSERT A ROW AFTER LIKE SETS OF DATA

[Eddie G.]

i have a column of like sets of data. can a macro be written to insert a blank row at the end of each set of like data:

1966
1966
1966

1988
1988
1988

1921
1921
etc. etc.

 

[Al Chara]

Try the following:

Sub InsertBlankRows()
Dim ColOfData As Integer
ColOfData = 1
For i = ActiveSheet.UsedRange.Columns(ColOfData).Rows.Count To 1 Step -1
If Cells(i, ColOfData) <> Cells(i + 1, ColOfData) Then _
Cells(i + 1, ColOfData).EntireRow.Insert
Next i
End Sub

Change ColOfData to the number of the column that holds your data (ie 1=A, 2=B)

 

[Eddie G.]

after it spasmed for a few minutes, it worked wonderfully, thank you very much