提示错误 运行时错误‘1004’方法‘Range’作用于对象‘_Global’时失败

davied-eddly

   代码的意思是插入一列E，E列使用left函数求取D列前6位，然后自动填充到最后一列，因为每次的数据都不一样，并不能够固定下来到哪一行，每次运行到标黄代码时总是显示错误，请教下大神，是什么原因啊
   Columns("E:E").Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
     Range("E1").Select
    ActiveCell.FormulaR1C1 = "工号"
    Range("E2").Select
    ActiveCell.FormulaR1C1 = "=LEFT(RC[-1],6)"
   Dim c As Range
    Set c = Worksheets("新入网-当日").Range("D1048576").End(xlUp).Offset(0, 1)
    Selection.AutoFill Destination:=Range("E2:E&c")

abc123281

最好能上传附件

lufton

改为：set c = Worksheets("新入网-当日").Range("D1048576").End(xlUp).Offset(0, 1)
i=c.row
    Selection.AutoFill Destination:=Range("E2:E" & i)