Problem Makro Spalte H Nullen

Option Explicit
Sub SpalteH_Nullen()
'Die Werte im Sheet "Zubehör", Spalte H "Anzahl aus Drehfeld" werden hiermit ab Zelle H4
'bis zum Ende der formatierten blau-weißen Tabelle mit einer Null überschrieben.
'Da diese Spalte ab H4 die Zellverknüpfungszellen der jeweiligen Drehfelder sind, bewirkt  _
hier das
'"Generieren" einer Null dafür, dass alle Drehfelder des Sheets Auswahl den internen
'Auswahlstatus (interner Wert)= 0 erhalten. Somit ist gewährleistet, dass vor jedem neuen  _
Angebot
'jedes Zubehör auf Anzahl Null steht, wenn der Button "Anzahl zurücksetzen" geklickt wird
With ThisWorkbook.Worksheets("Zubehör")
.Range(.Cells(4, 8), .Cells(.Rows.Count, 8).End(xlUp)) = 0
End With
End Sub
Sub msg_und_SpalteH_Nullen_Variante1()
Dim InMsgBox As Integer
InMsgBox = MsgBox("Achtung, möchten Sie alle gewählten Zubehöranzahlen auf Null zurü _
cksetzen? " & vbNewLine & _
"" & vbNewLine & _
"Dies muss vor jedem neuen Angebot durchgeführt werden.", vbYesNo + _
vbExclamation, "Information zum Rücksetzen")
Select Case InMsgBox
Case 6          'wenn ja gedrückt wird, wird Spalte H ab H4 gelöscht
With ThisWorkbook.Worksheets("Zubehör")
.Range(.Cells(4, 8), .Cells(.Rows.Count, 8).End(xlUp)) = 0
End With
Case 7          'wenn nein ausgewählt wird, schließt sich msgbox
End Select
End Sub
Sub msg_und_SpalteH_Nullen_Variante2()
'geht auch, aber Variante 1 ist etwas besser, da schneller
If MsgBox("Achtung, möchten Sie alle gewählten Zubehöranzahlen auf Null zurücksetzen? " _
& vbLf & vbLf _
& "Dies muss vor jedem neuen Angebot gemacht werden.", _
vbYesNo + vbQuestion, _
"Information zum Rücksetzen") = vbYes Then
SpalteH_Nullen
End If
End Sub
Sub cmd_aktualisieren_Click()
'CommandButton, der im Reiter Drucken_Speichern unter dem Namen "Auswahl aktualisieren" zu  _
finden ist
'Beim Drücken des Buttons werden ALLE Pivottabellen in dieser Arbeitsmappe (alle Sheets)  _
aktualisiert
Dim wS As Worksheet
Dim pt As PivotTable
For Each wS In ActiveWorkbook.Worksheets
For Each pt In wS.PivotTables
pt.RefreshTable
Next pt
Next wS
End Sub
Sub cmd_Hyperlink_zu_drucken_speichern_click()
'CommandButton, der einen Hyperlink zu Sheet enthält
Worksheets("drucken_speichern").Activate
End Sub
Sub cmd_Hyperlink_zu_auswahl_click()
'CommandButton, der einen Hyperlink zu Sheet enthält
Worksheets("auswahl").Activate
End Sub
Sub cmd_Hyperlink_zu_info_zubehoer_click()
'CommandButton, der einen Hyperlink zu Sheet enthält
Worksheets("info_zubehör").Activate
End Sub