The suggestion in the previous reply is not fool proof in all versions
of Excel 5 & later

And it assumes column A has an entry in the last used row
try replacing
iLastRow=Range("F65536").end(xlup).row

with this code which finds last used row on sheet

lLR=Cells.Find(what:="*", SearchOrder:=xlByRows, _
SearchDirection:=xlPrevious).Row
range("a2:f2").AutoFill Destination:=Range("A2:F" & lLR)


--
mudraker
------------------------------------------------------------------------
mudraker's Profile: http://www.thecodecage.com/forumz/member.php?userid=18
View this thread: http://www.thecodecage.com/forumz/sh...ad.php?t=24702