Sub ss()
Dim Sh As Worksheet
Dim SumData As Double
    SumData =  0 
    With Workbooks("report.xls")
        For Each Sh In .Sheets
            If Not Sh.Name Like "analiz" Then
                SumData = SumData + Sh.Range("A1").Value
            End If
        Next Sh
        .Worksheets("analiz").Cells( 4 ,  3 ).Value = SumData
    End With
End Sub

Function SumForCell(RngAddress As String) As Double
Dim Sh As Worksheet
Dim SumData As Double

    SumData =  0 
    With Workbooks("report.xls")
        For Each Sh In .Sheets
            If Not Sh.Name Like "analiz" Then
                SumData = SumData + Sh.Range(RngAddress).Value
            End If
        Next Sh
        SumForCell = SumData
    End With
End Function


Sub ProcessRange()
Dim SelectedRange As Range
Dim Rng As Range

    Set SelectedRange = Application.Selection
    
    For Each Rng In SelectedRange
        Rng.Value = SumForCell(Rng.Address)
    Next Rng
    
    Set SelectedRange = Nothing
End Sub