Thanks so much stnkynts.
It did work. Now I did realize I have a small problem at hand. The issue is that Sheet 1 is the latest sheet that is generated by a different set of codes using Sheets.Add after:=Sheets(Sheets.Count) and hence for the above code its not necessary that the sheet from which rows have to be copied will be sheet 1. It can be sheet 2 or 3. How do I tell the code to set ws1 to latest worksheet or the worksheet on the extreme right of the workbook. Tried Worksheets(Worksheets.Count).Activate but throws error.