Option Explicit
Sub MultiSheets()
Const MultiSh As String = "Final Sheet 1,Final Sheet 2,Final Sheet 3"
Dim V
Dim arrSh() As String: arrSh = Split(MultiSh, Chr(44))
For Each V In arrSh
mNullen V
mSpaltenübertragung V
Next V
End Sub
Private Sub mNullen(ByVal shName As String)
Dim a As Range, c As Range
With Sheets(shName)
For Each a In .Range("E7:I212,K7:M212,O7:Q212").Areas
For Each c In a.Cells
If c.Value = "" Then c.Value = 0
Next c
Next a
End With
End Sub
Private Sub mSpaltenübertragung(ByVal shName As String)
Dim c As Range
With Sheets(shName)
For Each c In .Range("A7:A212")
If c.Value = 1 Then
c.Offset(, 6).Value = _
c.Offset(, 6).Value + (c.Offset(, 4).Value - c.Offset(, 6).Value - c.Offset(, 7).Value)
End If
Next c
End With
End Sub