flytning af mange celler.

hej igen:-)

Jeg bruger denne formel til at trække inholdet fra celle A10 i mappe1 til celle A10 i mappe2:

Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
x = Sheets("Ark1").Range("A10")
Workbooks.Open Filename:="c:\mappe2.xls"
For Each sh In Workbooks("mappe2.xls").Sheets
sh.Activate
If sh.Range("A10") = "" Then sh.Range("A10") = x: Exit For
Next
Workbooks("mappe2.xls").Close savechanges:=True
Application.ScreenUpdating = True
End Sub


Men hvad nu hvis det er mange celler jeg skal flytte?

Lad os sige at alle celler fra A1 til L30 skal flyttes?