K

The problem is in your code

iNewRow = (Rng(2).Rows.Count) + 1

rows.count = 65536 (lastrow) + 1 = 1(firstrow)


you need to use


iNewRow = Range("a" & Rows.Count).End(xlUp).Row + 1


or


iNewRow = TheSheet.Cells.Find(What:="*", _ SearchOrder:=xlByRows, _
SearchDirection:=xlPrevious).Ro

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