change

GetBottomRow = Cells.Find(what:="*", SearchOrder:=xlByRows, _
SearchDirection:=xlPrevious).Row

to

GetBottomRow = Cells(Rows.Count, "a").End(xlUp).Row

change the "a" column reference to a column that always has an entry i
the last row that you use

--
mudrake
-----------------------------------------------------------------------
mudraker's Profile: http://www.excelforum.com/member.php...nfo&userid=247
View this thread: http://www.excelforum.com/showthread.php?threadid=40033