close
I am currently using this code (see below) to insert rows where the #'s
change in a column quot;Equot;. 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
全站熱搜
留言列表
