Try the following. Note that a space and underscore at the end of a line is a
line break in an otherwise single line of code.

Using Selection method.

Range("A4").Select
Selection.AutoFill _
Destination:=Range(Selection, _
Range("NETDAYS").Value)


Alternative method.
Range("A4").AutoFill _
Destination:=Range("A4:" & _
Range("NETDAYS").Value)


--
Regards,

OssieMac