Import per vba von externen Arbeitsblatt in bestimmtes Arbeitsblatt

Private Sub OP_Import_Click()
Dim directory As String, fileName As String, sheet As Worksheet, total As Integer
Application.ScreenUpdating = False
Application.DisplayAlerts = False
directory = "\\server\DFS\PROFILES\" & Environ("username") & "\Desktop\PN\"
fileName = Dir(directory & "OPL*.xl?")
Do While fileName  ""
Workbooks.Open (directory & fileName)
For Each sheet In Workbooks(fileName).Worksheets
total = Workbooks("OP.xlsm").Worksheets.Count
Workbooks(fileName).Worksheets(sheet.Name).Copy _
after:=Workbooks("OP.xlsm").Worksheets(total)
Next sheet
Workbooks(fileName).Close
fileName = Dir()
Loop
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub