Very small AutoFill macro showing "AutoFill methode of range class failed" why ?

[nur2544]

below macro showing "AutoFill methode of range class failed" Run time error "1000":.

Sub autofill()
Sheets(1).Range("D2:E10000").Copy Sheets(2).Range("B2")
Sheets(1).Range("M1").Copy Sheets(2).Range("D1")
lastrow = Sheets(2).Range("C" & Rows.Count).End(xlUp).Row
Sheets(2).Range("D1").AutoFill Range("D1:D" & lastrow), xlFillCopy
End sub

it works very well , after opening the macro module & press F8. but while i am going to use macro button it doesn't work .i get above read
color error in the last macro code(which is marked as red color)