If selection.rows.count = 1 then
selection.copy _
selection.Resize(cells(ActiveCell.row,"H"))
end if

--
Regards,
Tom Ogilvy


"GBH99" wrote:

How do I make a line of data (or maybe just a cell) paste several times
depending on a value in the row on column H?