I want to get multiple entries to paste to another sheet. I have the
following input box working to request one entry. Can anyone tell me how to
use the same box for multiple requests to append to "Sheet1"? Also, if entry
is wrong, I need to just return them back to the input box.
Please forgive any mistakes, I just had brain surgery...Really!!

Market = Application.InputBox("Enter your market")

Sheets("Daily_info").Select
Range("A1").Select
Selection.AutoFilter
Selection.AutoFilter Field:=18, Criteria1:=Market, Operator:=xlAnd
Range("A1").Select
Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
Selection.Copy
Sheets("Sheet1").Select
ActiveSheet.Paste