Hallo Melissa,

ersetze deinen Button durch ein Shape, hier brauchst du keine ActiveX-Komponente,  und dann kannst du dieses Makro dem Shape zuweisen:

' In ein Modul:
Public Sub CopyRegion()
  Dim rngTarget As Range
  Dim rngSource As Range
  
  ' Clear region
  Tabelle1.Range("C5:S38").Clear
  
  ' Copy data
  Set rngSource = Tabelle2.Range("A2:I16")
  Set rngTarget = Tabelle1.Range("D8")
  
  rngSource.Copy
  rngTarget.PasteSpecial xlPasteValues, xlPasteSpecialOperationNone, False, True
  Application.CutCopyMode = False
End Sub