Erreur d'exécution VBA 1004 "Erreur définie par l'application ou définie par l'objet" lors de la sélection de la plage

Je rencontre un problème avec une Erreur 1004 "définie par l'Application ou par l'Objet défini erreur" lors de la sélection d'une plage.

Je suis encore capable de sélectionner les lignes (c'est à dire Rows("21:21").select) et à sélectionner des plages dans d'autres feuilles du même classeur. Je ne crois pas que l'erreur est dans le code. Peut-être que ses quelques réglages, je ne suis pas au courant de?

J'ai utilisé exactement le même code plusieurs fois avant, mais pour une raison que je ne peut pas le faire fonctionner dans ce sous (j'ai commenté à l'endroit où l'erreur se produit)...

Sub CopySheet1_to_PasteSheet2()

    Dim CLastFundRow As Integer
    Dim CFirstBlankRow As Integer

    'Finds last row of content
    Windows("Excel.xlsm").Activate
    Sheets("Sheet1").Activate
    Range("C21").Select
         '>>>Error 1004 "Application-defined or Object-defined error" Occurs
    Selection.End(xlDown).Select
    CLastFundRow = ActiveCell.Row
    'Finds first row without content
    CFirstBlankRow = CLastFundRow + 1

    'Copy Data
    Range("A21:C" & CLastFundRow).Select
    Selection.Copy
    'Paste Data Values
    Sheets("PalTrakExport PortfolioAIdName").Select
    Range("A21").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

    'Bring back to top of sheet for consistancy
    Range("A21").Select
    Range("A1").Select
End Sub

J'ai besoin d'obtenir tous de fantaisie dans ma copie comme le nombre de lignes changent fréquemment. Encore une fois, le code ci-dessous a été utilisé avant sans erreur... mais pas dans ce cas.

Dim CLastFundRow As Integer
Dim CFirstBlankRow As Integer

'Finds last row of content
Windows("Excel.xlsm").Activate
Sheets("Sheet1").Activate
Range("C21").Select
     '>>>Error 1004 "Application-defined or Object-defined error" Occurs
Selection.End(xlDown).Select
CLastFundRow = ActiveCell.Row
'Finds first row without content
CFirstBlankRow = CLastFundRow + 1

source d'informationauteur thomas