Simplify Copy and Paste

[Stekke80]

How could i simplify this macro?


Range("P389").Select
Windows("dagrapport-week-52.xls").Activate
Range("E6").Select
Selection.Copy
Windows("afrekening december2006.xls").Activate
ActiveSheet.Paste
Range("P390").Select
Windows("dagrapport-week-52.xls").Activate
Range("F6").Select
Selection.Copy
Windows("afrekening december2006.xls").Activate
ActiveSheet.Paste


Thanks in Advance,

Kindly regards

[VBA Noob]

Hi,

This might help. Assumes you run the code while in the workbook
dagrapport-week-52.xls

Sub Copy()

Range("P389:P390").Copy
Workbooks("afrekening december2006.xls").Activate
Range("E6:F6").Select
     Selection.PasteSpecial Paste:=xlPasteValues, Transpose:=True
Application.CutCopyMode = False
End Sub

or without activating afrekening december2006.xls

Sub Copy1()

Range("P389:P390").Copy
Workbooks("afrekening december2006.xls").Sheets("sheet1").Range("E6:F6") _
.PasteSpecial Paste:=xlPasteValues, Transpose:=True
Application.CutCopyMode = False
End Sub

VBA Noob