Aufruf per Button

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("P26")) Is Nothing Then
If IsNumeric(Range("P26")) And Range("P26")  0 Then
Range("A7:E1000").ClearContents
Range("A7:E" & Range("P26") + 5).Formula = Range("A6:E6").Formula
End If
End If
End Sub