Zellbereich Sub zuweisen?

Sub zuweisen?
Hier meine Sub:

Sub BereichAuswählen()
Dim Wert as Integer
For z = 0 to 34
For s = 0 to 50
If Range("D7".Offset(z, s).Value = 1 Then
Range("Kalkulation!F7").Offset(z, s).Value = HIER SOLL ALLEN
ZELLEN EINE 

Sub ZUGEWIESEN WERDEN, WO DIESE BEDINGUNG ZUTRIFFT
End Sub


Dankbar für jeden Tip

Thanx