а вы можете прислать еще пример
где
было
1      и стало  1
1                     1
1                     1              
2
2                     2
3                     2  
3                  
4                     3
                      3  

                      4  

Задачу ставил во такую для макроса

Хорошо. А как запустить тогда?

В файле разброс был очень странный. У Вас получился построчно?
Я не могу сохранить

А вообще верно ли написан этот макрос? Может там в самом написании есть ошибки?  

Все так же. Либо не сохраняется, либо выдает предупреждение и не сохраняется в списке макросов (вызываю по команде alt+f8)

Файл сохранен как Эксель с поддержкой макросов

также выдает предупреждение

а перед end sub или после?

При проверке инспектором документов есть только одно замечание

Выдает следующую ошибку при  попытке сохранения:
"Будьте внимательны! В документе могут быть персональные данные, которые невозможно удалить с помощью инспектора документов"

В чем может быть проблема? Может в самом макросе?

Private Sub Worksheet_Change(ByVal Target As Range)
   Dim WatchColumn As Range
   Dim Cell As Range

   ' Укажите диапазон, который вы хотите отслеживать (A1:A20)
   Set WatchColumn = Me.Range("A1:A20") ' Указан диапазон A1:A20

   ' Проверяем, изменен ли диапазон в отслеживаемом столбце
   If Not Intersect(Target, WatchColumn) Is Nothing Then
       Application.EnableEvents = False ' Отключаем события, чтобы избежать бесконечного цикла

       For Each Cell In Target
           If Cell.Value <> "" Then
               ' Вставляем пустую строку перед изменением значения
               Cell.EntireRow.Insert Shift:=xlDown
           End If
       Next Cell
       
       Application.EnableEvents = True ' Включаем события обратно
   End If
End Sub

Есть макрос, который должен помогать вставлять пустые ячейки при смене значения в ключевом столбце

Выглядит он так:


Но он не сохраняется.