возможно вы _удаляете_ данные, т.е. выделяете строчки и нажимаете "удалить", а потом вставляете новые данные.  
 
попробуйте выделить данные и нажать кнопку "delete", т.е. не удалить, а просто стереть. а потом уже вставить на это место новые данные

выдели a6:a8  и попробуй удалить :)

razmus  
могу предложить только защиту от изменения по даблклику.  
от клавиши не спасет, но может кому идея какая придет.  
чтобы отсечь окошко при изменении путем даблклика  
 
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)  
Cancel = True  
End Sub

пуск-панель управления-язык и региональные стандарты.  
там настроить вид отображения валюты и цифр

уже домой собираюсь, код лень писать. но дам подсказку. наверняка поймете. судя по ясности изложения вы достаточно во всем разбираетесь.  
в первичном блоке замен вместо выражений "счет-фактура" и "накладная" оставьте специфичный набор символов, так сказать маячок. например "_сф_" "_нкл_"  
 
а потом при заполнении определяйте что это было по этим маячкам и вставляйте просто без них.  
маячки проще находить оператором Like

попробуйте автофильтр юзать не на все 22 столбца, а только на нужный  
sub microfilter()  
ActiveCell.Column.Select  
Selection.AutoFilter  
end sub  
не панацея и не для всех ситуаций подходит, но вдруг спасет...

под дисперсией тут что понимается?  
разброс между наибольшим и наименьшим?  
или разброс от какой-то другой величины?

перевод точно не знаю, т.к. русской версии под рукой нет.  
скорее всего что-то вроде  
Файл->параметры страницы->лист->печать->черно-белый :)

забыл.  
в начале  
colnum = ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Column

For x = 1 To lngStringCount - 1  
   For y = 1 To colnum  
      If y < colnum Then strWholeFile = strWholeFile & Cells(x, y).Value & vbTab Else strWholeFile = strWholeFile & Cells(x, y).Value  
   Next  
   strWholeFile = strWholeFile & vbCrLf  
 Next

копируешь как есть, т.е. Цех 5  
потом выделяешь столбец и глобальной заменой меняешь на нужный цех

вот балда...    
все в проперти ковырял думал может там где глубоко зарыто :)  
спасибо :)

все мы знаем и успешно используем такую фишку как    
Worksheet_SelectionChange(ByVal Target As Range)  
а вот у меня возникла затыка с тем, чтобы определить какая ячейка была выделена перед таргетом.  
как ее выцепить?..

нашел перевод.  
=СУММПРОИЗВ(1/СЧЁТЕСЛИ(A1:A11;A1:A11&""))-1

ТСу нужны уникальные значения.  
 
в английской версии  
=SUMPRODUCT(1/COUNTIF(A1:A11;A1:A11&""))-1  
 
русской версии под рукой нет, не знаю как функции называются точно  
подсобите кто-нибудь

sub sixbold()  
n = Len(ActiveCell.Value)  
With ActiveCell.Characters(Start:=n - 6 + 1, Length:=6).Font  
 .FontStyle = "Полужирный"  
End With  
end sub

а если записывать не в один одну книгу на 3 листа, а в 3 разные книги?

кэш пивота очищается?

попробуйте  
application.displayalerts=false  
application.displayalerts=true

копать надо не к файлу, а к удалению старой и созданию новой кнопки при открытии.  
т.е. в секции воркбук_оупен прописать создание панельки с кнопкой и назначить им макрос

а еще можно на сервере в БД сделать таблицу.  
и через запрос подтягивать значения при открытии файла :)

нечетных больше. моя будет чаше, ура! :))  
всегда пожалуйста :)

"В приложении к моему вопросу Вы найдете мои текущие наработки."  
 
искал-искал...  
не нашел...  
 
как вы итоговый лист формируете? формулами?

а буфер обмена тут причем?  
машинку помощнее не пробовали?

зайти в VBA  
Insert-Module (Вставить-Модуль)  
внутрь модуля запихнуть следующий код  
 
Function percent(ByVal stroka As String)  
  st = stroka  
  For i = 1 To Len(st) - 1  
     v1 = Mid(st, i, 1)  
     v2 = Mid(st, i + 1, 1)  
     If IsNumeric(v1) = True And IsNumeric(v2) = False Then  
        St_l = Left(st, i) & "%"  
        St_r = Right(st, Len(st) - i)  
        st = St_l & St_r  
     End If  
  Next  
  percent = st  
End Function  
 
после этого в ячейку B1 вставляете как формулу =percent(А1)  
потом протягиваете формулу.

сделать в этой же форме _скрытые_ текстбоксы, в которых перед закрытием формы сохранять значения чекбоксов.

всегда пожалуйста :)

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

нужно предупредить.  
группировка убирается.  
если она нужна, то файл тогда не сохранять после обработки

тогда просто переименуйте макрос любым другим именем.    
и запускайте когда необходимо :)