Macro

[chazzerman01]

is it possible for a macro to run if the active cell value is different to the value above it

 

[My Aswer Is This]

Oooh - one more thing that's just occurred to me: The act of inserting a row will invoke the Change function, so the test needs to be that the target cell is the first column of the last row and the cell has a value.

Private Sub Worksheet_Change(ByVal Target As Range)
'Modified  1/8/2020  10:27:51 AM  EST
Dim tbl As ListObject
Set tbl = ActiveSheet.ListObjects("Table6")
If Not Application.Intersect(Target, tbl.ListRows(tbl.ListRows.Count).Range(1, 1)) Is Nothing and Target.Value<>"" Then
Application.EnableEvents = False
Call Resize_Me
End If
Application.EnableEvents = True
End Sub

Fat Boy:
Thanks for your input it worked for me. I use sheet change events but never one when using a Table.
I need to go. So if you could make any changes your now suggesting would be great.
I will be off line for several hours.
Thanks. I learned something new today.

 

[FatBoyClam]

It's a collaborative effort.

The code in my previous post contains the updated test to check the changed cell has a value.

 

[chazzerman01]

that worked thank you for your help both of you

 

[My Aswer Is This]

that worked thank you for your help both of you

Glad we were able to help you.

Come back here to Mr. Excel next time you need additional assistance.