ایجاد ردیف بین دو ردیف با تغییر مقدار

X=Target.Row

Y=Target.Column

Msgboc X & "," & Y

در کد زیر اگر مقدار در ستون C و سل مربوطه با ردیف قبلش تفاوت داشت یک ردیف ایجاد می کند بخاطر تفکیک کردن.البته در رویداد Selection Change هم می توان کد داخل رویه زیر را کپی کرد و محدوده را هم اصلاح نُمود.

Sub InsertRows()

  Dim lastRow As Long

  Dim rowPtr As Long

 ذخیره شمارش ردیف ها ( البته ستونی که بهیچ عنوان خالی نیست را انتخاب کنید

  lastRow = Range("C" & Rows.Count).End(xlUp).Row

لوپ در آخرین ردیف و ماقبلش 

  For rowPtr = lastRow To 2 Step -1

چک کردن خالی نبودن سل مربوطه

    If Not IsEmpty(Range("C" & rowPtr)) Then

      If Range("C" & rowPtr) <> Range("C" & rowPtr - 1) Then

ایجاد یا Insert یک ردیف

        Range("C" & rowPtr).EntireRow.Insert

      End If

    End If

  Next

End Sub

رویداد Selection Change ناحیه کاربری برای اجرا هر ماکرویی بصورت خودکار زمان تغییر سلول یا انتخاب سلول یا رنج  مشخص