Objektvariable fehlt

Option Explicit
Public Sub CBD_Makro()
Dim Int_Blockanzahl As Integer
Dim Str_Datei As String
Dim Str_Registerkarte As String
Dim Rng_Suchbereich As Range
Dim Str_Block_ID As String
Dim i As Integer
'Definition der Variablen (Anzahlblöcke, Dateiname, Registerkartenname)
MsgBox ("Dieses Programm dient zur Übertragung der Überschriften")
Int_Blockanzahl = InputBox("Bitte tragen Sie die Anzahl aller Blöcker ein", "Ermittlung der  _
Blockanzahl", "3")
Str_Datei = InputBox("Bitte tragen Sie den Namen der Datei ein, auf die Sie Zugreifen möchten",  _
_
"Ermittlung der Datei", "ZXCBDBeispiel.xlsx")
Str_Registerkarte = InputBox("Bitte tragen Sie den Namen der Registerkarte ein, auf die Sie  _
zugreifen möchten", "Ermittlung der Registerkartenvorlage", "Sheet1")
'Kopie der Blöcke in ein neues Tabellenblatt
For i = i To Int_Blockanzahl
Str_Block_ID = "Block" & i
With Windows(Str_Datei).Activate
Sheets(Str_Registerkarte).Activate
Set Rng_Suchbereich = ActiveSheet.Cells.Find(Str_Block_ID, Lookat:=xlWhole). _
Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.Copy
Sheets.Add After:=Sheets(Sheets.Count)
ActiveSheet.Paste
Range("A1").Select
Selection.End(xlDown).Select
Range(Selection, Selection.End(xlToRight)).Select
Application.CutCopyMode = False
Selection.ClearContents
Windows("ZX_Musterdatei_CBDMakro_vers1.xlsm").Worksheets("Data overview").Range( _
_
"A1").Rng_Suchbereich.PasteSpecial
End With
Next
End Sub