Change your resize command from

..Resize(, 1) to
..Resize(usedrange.rows.count-4, 1)


"Hirsch" wrote:

Dim rngDataRange As Range

Set rngDataRange = ActiveSheet.UsedRange.Offset(4, 5).Resize(, 1)
Cells(5, 6).Copy rngDataRange.Cells(1, 1)
rngDataRange.FillDown

End Sub


Above is a simple macro filling down a formula from cell F5. I'm running
into a problem where it exceeds my list by 4 lines. How can I prevent this.
My goal is to have rows 1-4 blank and the fill down end at the last piece of
information.

Thanks in advance.