Dim sh1 as worksheet, sh as worksheet
Dim rng as range
set sh1 = worksheets("Sheet_Src")
for each sh in Worksheets
if lcase(sh.name) < lcase(sh1) then
set rng = sh.Cells(rows.count,1).End(xlup)(2)
sh1.rows(6).copy destination:=rng
end if
Next

Without specifics on which sheets get populated and what is being copied and
where below the line, the above represents a general approach. It copies a
row (row 6) from a sheet named Sheet_Src and places it (copies it) to the
cell/row below the last filled cell on each other worksheet in the workbook
(except Sheet_Src).

--
Regards,
Tom Ogilvy


"GazMo" wrote in message
...

Hi, I have a series of worksheets in one workbook - I now need to put
the same information (from another worksheet within the same workbook)
in each worksheet under the last line (varying length in each
worksheet) ... can anyone help me with this please ??


--
GazMo
------------------------------------------------------------------------
GazMo's Profile:
http://www.excelforum.com/member.php...o&userid=14610
View this thread: http://www.excelforum.com/showthread...hreadid=271181