Calculating Average once blank row is added

[Branbran10]

Hi, after I add in the 2 lines once it finds differences in Column D, I want to average the cell values in Column G and H.

So it adds 2 blank lines once it finds a difference, then on the first added blank line, I want the average to be calculated automatically for Columns G and H. Where can i add it to the code below?

Code below:

Sub InsertLine()
Dim lRow As Long
For lRow = Cells(Cells.Rows.Count, "D").End(xlUp).Row To 2 Step -1
If Cells(lRow, "D") <> Cells(lRow - 1, "D") Then Rows(lRow).EntireRow.Insert
Next lRow
End Sub

Thanks!

[LokeshKumar]

Can you upload the workbook....there would be more simpler code available....

[Branbran10]

Can you upload the workbook....there would be more simpler code available....

Yup, see attached. Thanks

[LJMetzger]

Hi Branbran10,

The following Macro may help you. The addition of blank lines or the deletion of blank lines should not affect the Excel Average formula:

Please Login or Register  to view this content.

Lewis

[sourabhg98]

You can also try this shorter version--

Please Login or Register  to view this content.

Just call this macro after inserting rows like this--

Please Login or Register  to view this content.

[sourabhg98]

Sample file attached...
Press the "Run" Button to get results...

[Branbran10]

This creates two empty rows to be added to the top.. how can that be fixed?

[sourabhg98]

At the end of insert line macro (after "call average") just put-
Rows("2:3").EntireRow.Delete Shift:=xlUp

[Branbran10]

Beautiful, thank you!

[sourabhg98]

You are most welcome!!
Thanks for the feedback and reputation!!
It would be good if you could mark the thread as solved from the thread tolls above...
Regards
Sourabh