VBAコンパイルエラーが発生しました

Question

以下のコードは、ブックを最初に開いたときに実行されるコードです。

Sub Auto_Open() 

Dim LastRow As Integer 
LastRow = Sheet6.UsedRange.Rows.Count 

ActiveWorkbook.RefreshAll 

Sheet6.AutoFill Destination:=Range("Y2:Y" & LastRow) 

End Sub 

それは自動的にブック内の任意のクエリまたは式を更新する更新すべてを実行した後、ワークシートに見出すことができるデータの最後の行にsheet6の列Y内のデータのリストを自動入力します。

コードを実行すると、「コンパイルエラー：データメンバーのメソッドが見つかりません」というハイライトが表示されます。

.Autofill 

私が理解していないことは、これだけでなく、同じスプレッドシートでもうまく機能するということです。

このシートでは動作しませんが、他のコードでは次のコードを試しました。

Sub Auto_Open() 

ActiveWorkbook.RefreshAll 

Sheet6.AutoFill_ListSource 

End Sub 

ListSourceは、私が自動入力しようとしている列Y内のテーブルの名前です。

ありがとうございました！

Answer 1

変更：

Sheet6.AutoFill Destination:=Range("Y2:Y" & LastRow) 

へ：

Sheet6.Range("Y2").AutoFill Destination:=Sheet6.Range("Y2:Y" & LastRow) 

注：

Dim LastCell As Range 
Dim LastRow As Long 

With Sheet6 
    Set LastCell = .Cells.Find(What:="*", After:=.Cells(1), Lookat:=xlPart, LookIn:=xlFormulas, _ 
         searchorder:=xlByRows, searchdirection:=xlPrevious, MatchCase:=False) 
    If Not LastCell Is Nothing Then 
     LastRow = LastCell.Row 
    Else 
     MsgBox "Error! worksheet is empty", vbCritical 
     Exit Sub 
    End If 
End With