Error 1004 ifm. run af VBA kode

Hej,

Når jeg køre nedenstående kode, kommer følgende fejlmeddelelse frem:

Run-time error '1004':
Application-defined or object-defined error

Jeg har et excel ark, som skal kopier nogle ultimo værdier til at blive primo værdier. Jeg anvender Name Manager, idet det område, som skal kopieres, skal kunne udvides.


Nedenfor fremgår min VBA kode

VBA koden består af følgende:

Det som er markeret med fed i koden, skaber fejlmeddelelsen (bliver markeret med gil farve i selv VBA kode vinduet).

Hvad kan jeg gøre?

Sub OpdaterData()

Application.ScreenUpdating = False

Raekke = ActiveCell.row
Kolonne = ActiveCell.Column


Dim MyCell
Application.ScreenUpdating = False
MyCell = ActiveCell.Value
ans = MsgBox("Oversigten er ved at blive opdateret. Bemærk at handlingen ikke kan fortrydes efterfølgende!" & vbCr & "  " & vbCr & _
    "Det anbefales derfor, at denne version gemmes inden opdatering!" & vbCr & "  " & vbCr & _
    "Ønsker du at gemme?", 32 + vbYesNoCancel, "Opdatere værdipapiroversigten!!!!!")
  If ans = vbYes Then
      Application.Dialogs(xlDialogSaveAs).Show
  ElseIf ans = vbNo Then
Raekke = ActiveCell.row: Kolonne = ActiveCell.Column


ActiveSheet.Unprotect Password:="010000"

' OpdaterData kurser og beholdning
           
  ' Opdatere Aktierne
 
  Range("Kurs_Primo").Value = Range("Kurs_Ultimo").Value
  Range("Nominel_Primo").Value = Range("Nominel_Ultimo").Value
  Range("Valuta.kurs_Primo").Value = Range("Valuta.kurs_Ultimo").Value
 
  ' Opdaterer Obligationerene
 
  Range("Kurs_obl_Primo").Value = Range("Kurs_obl_Ultimo").Value
  Range("Valuta.kurs_obl_Primo").Value = Range("Valuta.kurs_obl_Ultimo").Value
  Range("Nominel_obl_Primo").Value = Range("Nominel_obl_Ultimo").Value
 
  ' Opdaterer Investeringsforeningsbeviser, obligationsbaseret
 
  Range("Kurs_inv_Primo").Value = Range("Kurs_inv_Ultimo").Value
  Range("Valuta.kurs_inv_Primo").Value = Range("Valuta.kurs_inv_Ultimo").Value
  Range("Nominel_inv_Primo").Value = Range("Nominel_inv_Ultimo").Value
 
  ' Opdaterer Investeringsforeningsbeviser, Aktiebaseret
 
  Range("Kurs_Aktiebaseret_Primo").Value = Range("Kurs_Aktiebaseret_Ultimo").Value
  Range("Valuta.kurs_Aktiebaseret_Primo").Value = Range("Valuta.kurs_Aktiebaseret_Ultimo").Value
  Range("Nominel_Aktiebaseret_Primo").Value = Range("Nominel_Aktiebaseret_Ultimo").Value

' Slet ultimokurser

    Range("S10:T500").ClearContents
    Application.Goto [A1], True
    Range("B4").Select

    Cells(Raekke, Kolonne).Activate

ActiveSheet.Protect Password:="010000", DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowFormattingCells:=True, AllowFormattingColumns:=True, AllowFormattingRows:=True



'Sletter date vedr. oversigt over køb:
    Sheets("Oversigt over køb").Select
    Sheets("Køb").Visible = True
    Range("A2:G2").Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.ClearContents
    Range("A2").Select
    Sheets("Køb").Select
    ActiveWindow.SelectedSheets.Visible = False

    Sheets("Oversigt over køb").Select
    Range("B5").Select
    ActiveSheet.PivotTables("PivotTable1").PivotCache.Refresh
    Range("A5").Select
    Selection.End(xlDown).Select
    Range("B1048576:H1048576").Select
    Range(Selection, Selection.End(xlUp)).Select
    With Selection.Interior
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorDark1
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    Range("A1048576").Select
    Selection.End(xlUp).Select


'Sletter date vedr. oversigt over salg:
    Sheets("Oversigt over salg").Select
    Sheets("Salg").Visible = True
    Range("A2:G2").Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.ClearContents
    Range("A2").Select
    Sheets("Salg").Select
    ActiveWindow.SelectedSheets.Visible = False
   
    Sheets("Oversigt over salg").Select
    Range("B4").Select
    ActiveSheet.PivotTables("PivotTable2").PivotCache.Refresh
    Range("A4").Select
    Selection.End(xlDown).Select
    Range("B1048576:H1048576").Select
    Range(Selection, Selection.End(xlUp)).Select
    With Selection.Interior
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorDark1
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    Range("A1048576").Select
    Selection.End(xlUp).Select
   
'Sletter date vedr. oversigt over Renter:
    Sheets("Oversigt over renter").Select
    Sheets("Renter").Visible = True
    Range("A2:H2").Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.ClearContents
    Range("K2").Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.ClearContents
    Range("A2").Select
    Sheets("Renter").Select
    ActiveWindow.SelectedSheets.Visible = False

    Sheets("Oversigt over renter").Select
    Range("B4").Select
    ActiveSheet.PivotTables("PivotTable3").PivotCache.Refresh
    Range("A4").Select
    Selection.End(xlDown).Select
    Range("B1048576:I1048576").Select
    Range(Selection, Selection.End(xlUp)).Select
    With Selection.Interior
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorDark1
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    Range("A1048576").Select
    Selection.End(xlUp).Select
    Range("A1").Select
    Sheets("Indhold").Select
    Range("A2").Select

   
   
    ElseIf iRet = vbCancel Then
        Exit Sub
       
    End If



Application.ScreenUpdating = True


End Sub

Hilsen Jacob