вот, еще подрезал  
<EM><STRONG>Файл удален</STRONG> - велик размер - [<STRONG>МОДЕРАТОРЫ</STRONG>]</EM>

Первый 106, второй 101.

Тут не упрощать макрос надо, а переписывать "с нуля"...  
 
Во-первых, убираем десятки одинаковых макросов типа этого:  
 
Sub Tabl_26()  
   Tabl = 26  
   Call Tablstca  
End Sub  
 
И пишем вместо них один универсальный.  
 
 
Во-вторых, переключитесь ради интереса на стиль ссылок R1C1 (вместо стиля A1)  
И вы с удивлением обнаружите, что формулы в ваших строках стали одинаковые, но работают по-прежнему.  
 
Это позволит вам избавиться от бОльшей части кода - в частности, от загадочных конструкций типа этой:  
 
Set frng1 = Range("E" & Str + 2)  
           s1 = frng1.Formula  
           sr1 = Right(s1, Len(s1) - InStr(1, s1, ":") - 2)  
           s1 = Replace(s1, sr1, Val(sr1) + 1 & ")")  
 
 
При использовании стиля R1C1 код будет выглядеть так:  
Rows(x).Copy: Rows(x).Insert Shift:=xlDown  
 
Про формулы можете даже не вспоминать - они скопируются корректно.  
Впрочем, они и сейчас копируются корректно - не понимаю, какой смысл их переписывать макросом...  
 
Но если уж так хочется каждый раз вносить формулы заново - это будет делать намного проще:  
Range("G" & 4 + 2).FormulaR1C1 = "=SUM(RC5:RC6)"  
 
 
PS: Полностью переделать код не могу - уж слишком много времени потребуется.  
Хотя, если убрать всё лишнее, - думаю, достаточно будет 5 - 10 строк кода.