SV Verweis Kopieren/Fehlersuche

Sub Entwurf()
Dim datXLSB As String
Dim datXLS As String
Dim heute As Date
Dim wbXLSB As Workbook
Dim wsXLSB As Worksheet
Dim wbXLS As Workbook
Dim wsXLS As Worksheet
Dim pfad As String
heute = Date
datXLS = Format$(heute, "dd.mm.yyyy") & ".xls"
datXLSB = Format$(heute, "dd.mm.yyyy") & "_Tagesbestellung.xlsx"
pfad = "C:\Users\Mike\Documents\Arbeit\"
Set wbXLSB = Workbooks(datXLSB)
Set wsXLSB = wbXLSB.Worksheets(1)
' 1. Arbeitsmappe datXLS öffnen
If Dir(pfad & datXLS) = "" Then
MsgBox Prompt:="Datei """ & pfad & datXLS & """ existiert nicht!", _
Buttons:=vbCritical
Exit Sub
End If
On Error Resume Next
Workbooks(datXLS).Close SaveChanges:=False
On Error GoTo 0
Set wbXLS = Workbooks.Open(Filename:=pfad & datXLS)
Set wsXLS = wbXLS.Worksheets("rptAbfDataArtikelLagerbestand")
' 4. suchen und ersetzen
wsXLS.Activate
Range("A2:A7764").Select
Selection.Replace What:="""", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
ThisWorkbook.Activate
' 4. SVERWEIS setzen
Dim zeile As Integer
wsXLSB.Activate
zeile = Cells(Rows.Count, 1).End(xlUp).Row
With wsXLSB.Range("N2")
.Formula = _
"=VLOOKUP(D2,[" & datXLS & "]rptAbfDataArtikelLagerbestand!$A$1:$F$7764,4,FALSE)"
 .AutoFill Destination:=wsXLSB.Range("N2" & zeile)
End With
ThisWorkbook.Activate
End Sub