VBA Runtime Error 1004 „Błąd zdefiniowany przez aplikację lub błąd zdefiniowany przez obiekt” podczas wybierania zakresu

Mam problem z błędem 1004 „Błąd zdefiniowany przez aplikację lub błąd zdefiniowany przez obiekt” przy wyborze zakresu.

Nadal mogę wybierać wiersze (tjRows("21:21").select) i wybrać zakresy w innych arkuszach tego samego skoroszytu. Nie wierzę, że błąd jest w kodzie. Może jest to jakieś ustawienie, którego nie znam?

Użyłem dokładnie tego samego kodu wiele razy wcześniej, ale z jakiegoś powodu nie mogę go uruchomić w tym sub (skomentowałem tam, gdzie wystąpił błąd) ...

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

Muszę mieć ochotę na całe moje kopiowanie, ponieważ ilość wierszy będzie się często zmieniać. Ponownie, poniższy kod został użyty wcześniej bez błędu ... ale nie w tym przypadku.

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

questionAnswers(16)

yourAnswerToTheQuestion