Hello Vlad999,
Change...
'Start copying data to row 2 in Sheet2 (row counter variable)
LCutToRow = 2
To this...
With Sheets("Sheet2")
LCutToRow = .Cells(.Rows.Count, "F").Row + 1
End With
This will return the next blank row in column "F" on Sheet2.
Sincerely.
Leith Ross
--
Leith Ross
------------------------------------------------------------------------
Leith Ross's Profile:
http://www.excelforum.com/member.php...o&userid=18465
View this thread:
http://www.excelforum.com/showthread...hreadid=556718