I am not sure what you are trying to do. I modified the LastRow line, but
the Autofill might still give you a problem.

Sub Autofill()

lastRow = Cells(Rows.Count, "E").End(xlUp).Row
Set Range1 = Range(Range("A2"), Range("D65536").End(xlUp).Offset(1, 0))
Range1.Select
Selection.Autofill Destination:=("Range1" & lastRow)

End Sub



"el dee" wrote in message
...
Hello,
Any ideas on the type misatch error I recieve here?
Sub Autofill()

LastRow = Range("E").End(xlUp)
Set Range1 = Range(Range("A2"), Range("D65536").End(xlUp).Offset(1, 0))
Range1.Select
Selection.Autofill Destination:=("Range1" & LastRow)

End Sub