![]() |
VBA assistance - Summing by grouping
I am currently using this code (see below) to insert rows where the #'s
change in a column "E". Runs great, however I would like to sum the rows proceeding the inserted rows (by Column - L,M,N,and O) . TFTH, Tom Sub InsertRows() Dim StartRow As Long Dim DataColumn As Long Dim LastRow As Long Dim iRow As Long With ActiveSheet StartRow = 6 DataColumn = 5 LastRow = .Cells(.Rows.Count, DataColumn).End(xlUp).Row For iRow = LastRow To StartRow Step -1 If .Cells(iRow, DataColumn).Value _ = .Cells(iRow - 1, DataColumn).Value Then 'do nothing Else .Rows(iRow).Resize(2).Insert End If Next iRow End With End Sub |
All times are GMT +1. The time now is 03:00 PM. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com