I'm assuming that you will be re-generating all the rows on Sheet 3 each
day before running the macro and that your data will always start in
A2.

Sub SampleSize()
Sheets(3).Range("A" & Sheets(1).Range("B3").Value + 2 & ":A" & _
Sheets(3).Cells(Rows.Count, "A").End(xlUp).Row).Delete
End Sub

Hope this does what you are after.


--
bhofsetz
------------------------------------------------------------------------
bhofsetz's Profile: http://www.excelforum.com/member.php...o&userid=18807
View this thread: http://www.excelforum.com/showthread...hreadid=390384