Private Sub Worksheet_Change(ByVal Target As Range)
    Static lngRows As Long
    If IsNumeric(Replace(Replace(Target.Address, "$", "", , , vbBinaryCompare), ":", "", , , vbBinaryCompare)) Then
        If lngRows < ThisWorkbook.ActiveSheet.UsedRange.Rows.Count Then
        MsgBox "!!!"
        End If
    End If
    
    lngRows = ThisWorkbook.ActiveSheet.UsedRange.Rows.Count
End Sub