sub putemtogether()
For i = 1 To Sheets.Count
With Sheets(i)
If .Name < "Index" Then
dlr = Cells(Rows.Count, "a").End(xlUp).Row + 1
..Cells(5, 1).Resize(, 9).Copy Cells(dlr, 1)
End If
End With
Next i
end sub
--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Narnimar" wrote in message
...
I have a workbook of sheets containeing Titles in a4 to i4 and its Values
in
a5 to i5. I need to drag the a5 to i5 of all the sheets (1,2,3,4...200)to
a
"Index" sheet to make the Summery. Cell a1 to a5 is having same titeles of
all the sheets. In the "Index" sheet, a5 of the sheet '1' will be in a2
and
a5 of the sheet '2' will be in a3 if I drag. I do not know what is the
right
formula?