thanks very muchAn option
VBA Code:Sub DoTheThing() Dim rownum As Long rownum = 26 Do Until Cells(rownum + 1, 1) = "" Cells(rownum, 13).Copy Cells(rownum + 1, 13) rownum = rownum + 1 Loop End Sub
thanksDoes this do what you want?
VBA Code:Sub Fill_Down() Range("M26:M" & Range("A26").End(xlDown).Row).FillDown End Sub