Dynamic insertion or deleting of blank cells

Hi Bernie,

Firstly many thanks for taking the time to respond,

Ive made a start with my code, and im pretty much there, the only I need to do now, is if I add blank cells, below, so if ive changed it from 100% to 50% I need it to copy the data from the above cell, past below, but split the value in half etc.

Below is my code

Sub InsertRowsOnValue()

Dim r As Long, lr As Long
Dim deleterow As Long
Dim ws As Worksheet
Set ws = ActiveSheet



Application.ScreenUpdating = False
For deleterow = ws.Range("M" & Rows.Count).End(xlUp).Row To 6 Step -1
If ws.Range("M" & deleterow).Offset(0, -1).Value = "" Then
Rows(deleterow).EntireRow.Delete
End If
Next deleterow



With ws


  lr = .Cells(Rows.Count, "L").End(xlUp).Row
  For r = lr To 6 Step -1
    If IsNumeric(.Cells(r, "L")) And .Cells(r, "L") > 0 Then
      .Rows(r + 1).Resize(.Cells(r, "L").Value).Insert
    End If
  Next r
End With
Application.ScreenUpdating = True
End Sub

im trying to figure out how to attach an example!!