D4 источник формул и данных, а D5:D35 диапазон куда нужно протянуть
ActiveSheet.Range("D4").Copy (ActiveSheet.Range("D5:D35"))
А вообще, обычно достаточно скопировать строку (диапазон) с формулами (форматами/данными), а потом выделить нужный для протягивания диапазон и вставить