Estou tendo um problema com um erro 1004 "definido pelo aplicativo ou erro definido pelo objeto" ao selecionar um intervalo.

Ainda sou capaz de selecionar linhas (ou seja,Rows("21:21").select) e para selecionar intervalos em outras planilhas da mesma pasta de trabalho. Eu não acredito que o erro esteja no código. Talvez seja algum cenário que eu não saiba?

Eu usei exatamente o mesmo código muitas vezes antes, mas por algum motivo eu não consigo fazê-lo funcionar neste sub (eu comentei onde o erro ocorreu) ...

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

Eu preciso ficar toda fantasia na minha cópia como a quantidade de linhas irá mudar com freqüência. Novamente, o código abaixo foi usado antes sem erro ... mas não nesta instância.

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