Macro Help !!!!

[GazMo]

Thanks Tom ... what would I need to enter for the range if i wanted t
copy rows 1-6 on another worksheet to ALL worksheets ? I would als
like to put it one row under each of the last rows !

 

[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)(3)
sh1.rows(1).Resize(6).copy destination:=rng
end if
Next