hjælp til vba

Hej!

Jeg er lige startet med at bruge makroer. Jeg bruger excel2007, jeg søger hjælp til at den kopierer formler ned til sidste aktive celle L:O, hvor K angiver sidste aktive celle. Lige nu stopper den ved O1725.

Sub hent()
'
' hent Macro
' importerer data
'
' Keyboard Shortcut: Ctrl+i
'
    Workbooks.Open(Filename:= _
        "Q:\!!Accounts\Oracle\Rapporteringstest\Rapportering København.xls"). _
        RunAutoMacros Which:=xlAutoOpen
    Range("A4").Select
    ActiveCell.FormulaR1C1 = "1"
    Range("C4").Select
    ActiveCell.FormulaR1C1 = "1"
    Range("A4").Select
    Selection.Copy
    Range("A6").Select
    Range(Selection, Selection.End(xlDown)).Select
    ActiveWindow.SmallScroll Down:=3
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlMultiply, _
        SkipBlanks:=False, Transpose:=False
    Range("C6").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlMultiply, _
        SkipBlanks:=False, Transpose:=False
    Range("A6:D6").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlDown)).Select
    ActiveWindow.SmallScroll Down:=3
    Application.CutCopyMode = False
    Selection.Copy
    Windows("Rapportering afd København.xlsm").Activate
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("L3:O3").Select
    Application.CutCopyMode = False
    Selection.AutoFill Destination:=Range("L3:O1725")
    Range("L3:O1725").Select
    Sheets("Omkostningsspec").Select
    Range("D6").Select
    ActiveSheet.PivotTables("PivotTable1").PivotCache.Refresh
    Sheets("Indrapporteringsark").Select
    Range("D1").Select
End Sub