VBAコードスローエラー：ランタイムエラー1004 Rangeクラスのオートフィルメソッドが失敗しました

Question

以下のVBAコードがあります。

Entitesシートの値に基づいて、ContributionシートにAuto Populateを設定する必要があります。

ここで、E_Countが1より大きい場合、正常に動作しています。しかしE_Count 1である、それはここでのコードの最後の行で、以下のようにエラーを投げているとき：： ランタイムエラーをレンジクラスの1004オートフィル方法は2つのエンティティと

'Autofill 
Dim MaxRow As Integer 
Dim E_Count As Integer 
Dim ii As Integer 
Dim jj As Integer 

MaxRow = Worksheets("Contribution").UsedRange.Rows.Count 
E_Count = Worksheets("Entities").UsedRange.Rows.Count - 4 

Worksheets("Contribution").Range("F5:G5").Copy Worksheets("Contribution").Range("F6:G" & MaxRow) 

Worksheets("Contribution").Range("H4:XFD1048576").Clear 

Worksheets("Contribution").Range("G4:G" & MaxRow).AutoFill Destination:=Worksheets("Contribution").Range(Worksheets("Contribution").Cells(4, 7), Worksheets("Contribution").Cells(MaxRow, 6 + E_Count)) 

エンティティシートを失敗しました[スタート]ボタンをクリックする前に

貢献シート：ここ VBAコードは列E.件まで埋めるために、データベースの呼び出しを行うには、これは、ここでのテンプレートのようなものです。 [スタート]ボタンをクリックした後

貢献シート：ここ

VBAコードは、[スタート]ボタンのクリック時に呼び出されています。 Entitiesで指定されたエンティティに基づいて、Contributionsシートのようにこれらのエンティティをピボットし、Usedデータ範囲がある場合は最初のセルまで100％として自動的に移入する必要があります。

ご意見はありますか？

あなたの時間を感謝します。

おかげで、 リタ

Answer 1

この
1.影響を与える多くの要因があるかもしれませんあなたがusedrows.countを使用してもよろしいですか？中の空白は数えられないことに注意してください。
2.サイズ範囲1の範囲を自動入力するとエラーが発生します。その場合はon error resume nextが動作しますが、データは1であり、自動入力しないことに注意してください.g4：g4から自動入力する例えば？ - これは入力ミスでなければならない場合、それはそのように扱われるべきです。
3.セルが存在しません（エラーが表示されたときにE_countをデバッグしましたか？「-6」の場合はどうなりますか）