Vba 运行时错误'；1004'；：应用程序定义或对象定义错误

我是VBA新手，在自动填充线方面遇到了一些问题。
具体来说，我对这一行有意见：

工作表（“批次”）.范围（“C2”）.自动填充目标：=工作表（“批次”）.范围（“C2:C”和“F”）

下面是我的完整代码，如果有人能帮忙，我将不胜感激

Application.ScreenUpdating = False
Application.DisplayStatusBar = False
Application.EnableEvents = False
ActiveSheet.DisplayPageBreaks = False

Worksheets("Batches").Activate


Dim F As Long
lastRow = Worksheets("Batches").Range("A" & Rows.Count).End(xlDown).Row
Worksheets("Batches").Range("C2").AutoFill Destination:=Worksheets("Batches").Range("C2:C" & F)
Worksheets("Batches").Range("D2").AutoFill Destination:=Worksheets("Batches").Range("D2:D" & F)


Worksheets("Batches").Range("A:A").Copy
Worksheets("Batches").Range("G:G").PasteSpecial (xlPasteValues)
Worksheets("Batches").Range("D:D").Copy
Worksheets("Batches").Range("H:H").PasteSpecial (xlPasteValues)

Columns("G:H").Select
Application.CutCopyMode = False
ActiveWorkbook.Worksheets("Batches").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Batches").Sort.SortFields.Add Key:=Range( _
    "H2:H1048576"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _
    xlSortNormal
With ActiveWorkbook.Worksheets("Batches").Sort
    .SetRange Columns("G:H")
    .Header = xlYes
    .MatchCase = False
    .Orientation = xlTopToBottom
    .SortMethod = xlPinYin
    .Apply
End With



Application.ScreenUpdating = True
Application.DisplayStatusBar = True
Application.EnableEvents = True
ActiveSheet.DisplayPageBreaks = True

---

您没有为F赋值，因此它将为零。我认为您的意思是使用lastRow变量而不是F