Recording a macro to do this gave me:
Range("D9").Select
Selection.AutoFill Destination:=Range("D9:D31")
but of course this is now hardcoded so transform to:
Range("D9").Select
Selection.AutoFill Destination:=Range(Range("D9"), _
Range("D9").Offset(0, -1).End(xlDown).Offset(0, 1))

assuming you're copying formulas to the right of a block of data;
you'll have to change the offset values for other situations.