Try this example

Dim sourceRange As Range
Dim destrange As Range
Set sourceRange = Sheets("Sheet1").Rows(1)
Set destrange = Sheets("Sheet2").Rows(6)
sourceRange.Copy destrange

You can use this to copy the ActiveCell.Row
Set sourceRange = ActiveCell.EntireRow

See also
http://www.rondebruin.nl/copy1.htm


--
Regards Ron de Bruin
http://www.rondebruin.nl


"nowfal" wrote in message
...

Hi,
I wanted to copy a row from the sheet 1 to sheet 2 with a macro.
i.e. sheet 1 row a1 to f1 to sheet 2 row a6 to f6. And when macro
fires there should be a message box to appear about the selection of
row.So that i can select any of the row from the sheet 1 to sheet 2.
Any help will be highly appreciated.
thanks
nowfal


--
nowfal
------------------------------------------------------------------------
nowfal's Profile: http://www.excelforum.com/member.php...o&userid=10003
View this thread: http://www.excelforum.com/showthread...hreadid=386219