With ActiveWorkbook
   For i =  1  To ActiveWorkbook.Sheets.count
   If Sheets(i).name <> "Итоговые данные" Then
        For j =  0  To count -  1 
           For v =  0  To  2 
                If (Sheets(i).Range("E" + CStr(j *  11  +  4  + v *  2 )).Value <> " ") Or (Sheets(i).Range("E" + CStr(j *  11  +  4  + v *  2 )).Value <>  0 ) Then
                    Sheets(i).Range("E" + CStr(j *  11  +  9 )).Value = Sheets(i).Range("E" + CStr(j *  11  +  9 )).Value - Sheets(i).Range("E" + CStr(j *  11  +  3  + v *  2 )).Value
                End If  
                If (Sheets(i).Range("F" + CStr(j *  11  +  4  + v *  2 )).Value <> " ") Or (Val(Sheets(i).Range("F" + CStr(j *  11  +  4  + v *  2 )).Value) <>  0 ) Then
                    Sheets(i).Range("F" + CStr(j *  11  +  9 )).Value = Sheets(i).Range("F" + CStr(j *  11  +  9 )).Value - Sheets(i).Range("F" + CStr(j *  11  +  3  + v *  2 )).Value
                End If
                If (Sheets(i).Range("G" + CStr(j *  11  +  4  + v *  2 )).Value <> " ") Or (Sheets(i).Range("G" + CStr(j *  11  +  4  + v *  2 )).Value <>  0 ) Then
                   Sheets(i).Range("G" + CStr(j *  11  +  9 )).Value = Sheets(i).Range("G" + CStr(j *  11  +  9 )).Value - Sheets(i).Range("G" + CStr(j *  11  +  3  + v *  2 )).Value
                End If
           Next v
        Next j
   End If  
   Next i
End With