Insert Row when data is different
I have a range of @ 8000 rows. This range contains data for differen
customers. Each customer can and will appear on more than one row. What i want is to insert 6 blank rows when a new customer begins. Hope this makes sense! Please help!! Thanks. Tiffan -- Message posted from http://www.ExcelForum.com |
Insert Row when data is different
Tiffany
Sub InsertRow_At_Change() Dim i As Long With Application .Calculation = xlManual .ScreenUpdating = False End With For i = Cells(Rows.Count, 1).End(xlUp).Row To 2 Step -1 If Cells(i - 1, 1) < Cells(i, 1) Then _ Cells(i, 1).Resize(6, 1).EntireRow.Insert Next i With Application .Calculation = xlAutomatic .ScreenUpdating = True End With End Sub Gord Dibben Excel MVP On Fri, 20 Aug 2004 15:02:34 -0500, tratliff wrote: I have a range of @ 8000 rows. This range contains data for different customers. Each customer can and will appear on more than one row. What i want is to insert 6 blank rows when a new customer begins. Hope this makes sense! Please help!! Thanks. Tiffany --- Message posted from http://www.ExcelForum.com/ |
All times are GMT +1. The time now is 04:58 AM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com