Code geeft fout

[mrnico]

Hallo ik heb het volgende probleem

Ik heb het volgende stuk Code.
Deze gebruik ik ook in een ander bestand dus andere sheet namen.
Daar werkt hij zonder probleem.
Echter geeft hij nu een probleem bij

Sheets("Over_zicht").Paste

  Sub overzi()
  

    Sheets("Over_zicht").Select
    Range("A:A").Select
    Selection.ClearContents
    Sheets("Over_zicht").Select
    Columns("B:B").Select
    Selection.ClearContents
    Sheets("Totaal_lijst").Select
    Columns(2).Select
    Selection.Copy
    Sheets("Over_zicht").Select
    Range("A:A").Select
    Sheets("Over_zicht").Paste
    Application.CutCopyMode = False
    ActiveSheet.Range("A:A:A:A").RemoveDuplicates Columns:=1, Header:=xlYes
    Call vullen
    
End Sub

Ik weet niet wat ik over het hoofd zie.

Hoop 1 van jullie wel

 

[edmoor]

Je ziet nog een paar dingen over het hoofd.
Namelijk het plaatsen van een voorbeeld document en het vermelden van de foutmelding die je krijgt.

 

[HSV]

Dit blijft er van over:

Sub overzi()
  with Sheets("Over_zicht")
       .columns("a:b").clearcontents
    Sheets("Totaal_lijst").Columns(2).Copy .cells(1)
     .columns(1).RemoveDuplicates Columns:=1, Header:=xlYes
    Call vullen
  end with  
End Sub

 

[mrnico]

Top HSV het werkt