Kopieren per Makro

habe folgendes Problem: ich möchte per Makro einen Bereich aus einer Datei in eine andere kopieren, wobei die Quelldatei immer geöffnet ist. Bei folgendem Makro ist das Problem, dass offensichtlich zwar kopiert wird, jedoch die Zieldatei immer leer bleibt. Hat da jemand evtl. eine Idee?

Dim wsh As Worksheet
Set wsh = ActiveSheet

Workbooks.Open FileName:= _
"\\DONALD\Mappe2 MIT MAKRO.xls"
Workbooks.Open FileName:= _
"\\DONALD\Mappe2.xls"

Dim rngSource As Range, rngTarget As Range
Set rngSource = Workbooks("Mappe2 MIT MAKRO.xls").Worksheets(1).Range("A1:F14")
Set rngTarget = Workbooks("Mappe2.xls").Worksheets(1).Range("A1:F14")
rngSource.Copy rngTarget

Gruß, Mathias