Sub Tester2()
Dim rng As Range
Set rng = Worksheets("Sheet1").UsedRange
Worksheets("Sheet2").UsedRange.Copy _
rng.Rows(rng.Rows.Count + 1).Cells.Resize(1, 1)
End Sub

Assumes your sheets are named Sheet1 and Sheet2
--
Regards,
Tom Ogilvy


"vikram " wrote in message
...
not working frnd.

shows subscript out of range


---
Message posted from http://www.ExcelForum.com/