vb kode ombyg

Hey jeg har lavet denne macro men den er lidt tung kan man gøre den bedre!?

Sub Knap1_Klik()
'
' Knap1_Klik Makro
' Makro indspillet 24-08-2006 af Vifa
'

'
    Range("E5").Select
    ActiveCell.FormulaR1C1 = "11"
    Range("F5").Select
    Windows("11.xls").Activate
    Range("B2").Select
    Selection.Copy
    Windows("Ny Microsoft Excel-regneark.xls").Activate
    Range("F5").Select
    ActiveSheet.Paste
    Windows("11.xls").Activate
    Range("E2").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("Ny Microsoft Excel-regneark.xls").Activate
    Range("G5").Select
    ActiveSheet.Paste
    Windows("11.xls").Activate
    Range("E30").Select
    Selection.End(xlUp).Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("Ny Microsoft Excel-regneark.xls").Activate
    Range("I5").Select
    ActiveSheet.Paste
    Windows("11.xls").Activate
    Range("B28").Select
    Selection.End(xlUp).Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("Ny Microsoft Excel-regneark.xls").Activate
    Range("H5").Select
    ActiveSheet.Paste
End Sub