You can accomplish this by using ActiveSheet.Range("D15:D19").FillDown This will copy down the formula that is in D15 to the area specified D15:D19. Put this at the end.
ActiveSheet.Range("D15:D19").FillDown