Try this.
Sub Nullstill()
     'Start over with the items
If MsgBox("Dette vil nullstille alle varelinjer." & vbNewLine & vbNewLine & "Er du sikker?", vbOKCancel) = vbCancel Then Exit Sub

   Range("BQ13:BZ40").Copy Range("C13:L40")
    
End Sub