Sub Переименовать_книгу()   
OldName = ActiveWorkbook.FullName   
NewName = Sheets("Лист1").[A1] & ".xls"   
If NewName = ".xls" Or NewName = ActiveWorkbook.Name Then Exit Sub   
ActiveWorkbook.SaveAs Filename:=ActiveWorkbook.Path & "\" & NewName   
Kill OldName   
End Sub

СУММЕСЛИ([13];L48;[35]) 

СУММЕСЛИ(внедрение[13];L48;внедрение[35])

  Sheets("внедрение").Range("A8:ER" & shislostrok + 7).Copy
  Sheets("Данные").Range("A" & shislostrokk + 6).PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  Sheets("внедрение").Application.CutCopyMode = False

Sub tt()
'Цикл по листам книги, кроме скрытых и очень скрытых 
Dim Sht As Worksheet                                 
 For Each Sht In Worksheets                         
   With Sht
    If Sht.Visible = xlSheetVisible Then
      .Range("EO3:FK5,FN2:GB10").Select
       Selection.Value = Selection.Value     
    End If
   End With
 Next
End Sub

Sub tt()
'Цикл по листам книги, кроме скрытых и очень скрытых 
Dim Sht As Worksheet                                 
 For Each Sht In Worksheets                         
   With Sht
    If Sht.Visible = xlSheetVisible Then
      Range("EO3:FK5").Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("FN2:GB10").Select
    Application.CutCopyMode = False
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    End If
   End With
 Next
End Sub

Sub test()
    Range("L11:U41,L56:U86,L101:U131,L146:U176,L191:U221,L236:U266").Select
    Selection.ClearContents
End Sub