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

добавьте эту строку в ваш макрос в конец
ActiveWorkbook.RemovePersonalInformation = False

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

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

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

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

- я же написал что работает.
"Me." вроде как лишнее, но не мешает.

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

- это макрос на событие, там так и написано - Worksheet_Change.
Нужно такое событие, и он работает как написан.