Macro Help !!!!

[GazMo]

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

 

[Tom Ogilvy]

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).