What's wrong? Why I cannot change range in VBA from defined cell into last row?

Question

VBA: I was trying to implement the formula for not defined range, however auto fill destination is not working

    Range("D2").Select
       ActiveCell.