Sub Append ()
Dim rwct
Sheet1.Activate
rwct = ActiveSheet.UsedRange.Rows.Count
Sheet2.Activate
ActiveSheet.UsedRange.Select
Selection.Copy Destination:=Sheet1.Range("A" & rwct + 1)
End Sub

Mike F
"vikram " wrote in message
...
do we have a small visual basic command with the help of which we can
copy the used range in sheet2 and paste it below used range in sheet1

i have that big macro but i want to have simpler way

anyone can help?
thanks a lot frnds


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