excel vba autofill 程序问题在哪里

Sub adt()
Dim ho, vt As Integer
Sheets(1).Activate
Rows(1).Insert
Columns(3).Insert
Rows(1).NumberFormat = "h:mm;@"
Columns(1).NumberFormat = "@"
Columns(2).NumberFormat = "yyyy/m/d"
Cells(1, 1).Value = "负荷"
Cells(1, 2).Value = "日期"
Cells(1, 3).Value = "星期"
Cells(1, 4).Value = "0:00"
Cells(1, 5).Value = "0:15"
Range("D1:E1").AutoFill Destination:=Range(Cells(1, 6), Cells(1, 98))
End Sub

到range这一行显示应用程序或对象定义错误

Range("D1:E1").AutoFill Destination:=Range(Cells(1, 4), Cells(1, 98))
填充区域必须包括数据区域，就像你双击一样，你不是也要先选择两个单元格再双击嘛

任务占坑