Variable search/"echo off"

Following is the code I wrote (and got some help from cymbolic on) for doing a search on a particular item.  I need help in two areas:  (1) how do I program the "echo off" equivalent in VB so the screen doesn't jump so much when the program is going back and forth from Worksheet to Worksheet (or is there another way to write the code so there's less "back and forth"?; and (2) how can I change the search from absolute to variable?  I'd like the user to be able to search any item on the spreadsheet and have that item, its vendor and the cost display on the second Worksheet.  Thanks in advance, you VB wizards!  --Carol

Sub ItemVendorCost4()
'
    Application.Goto Reference:="Item1"
    ActiveCell.Select
    Selection.Copy
    Sheets("Sheet2").Select
    Columns("A:A").ColumnWidth = 19.43
    Range("A1").Select
    ActiveSheet.Paste
'
    Application.Goto Reference:="Vendor1"
    ActiveCell.Select
    Selection.Copy
    Sheets("Sheet2").Select
    Columns("B:B").ColumnWidth = 9.57
    Range("B1").Select
    ActiveSheet.Paste
'
    Application.Goto Reference:="Cost1"
    ActiveCell.Select
    Selection.Copy
    Sheets("Sheet2").Select
    Columns("C:C").ColumnWidth = 11.86
    Range("C1").Select
    ActiveSheet.Paste
'
    Range("A1").Select
    Application.CutCopyMode = False
    ActiveWorkbook.Names.Add Name:="ITEM2", RefersToR1C1:="=Sheet2!R1C1"
    Range("B1").Select
    ActiveWorkbook.Names.Add Name:="VENDOR2", RefersToR1C1:="=Sheet2!R1C2"
    Range("C1").Select
    ActiveWorkbook.Names.Add Name:="COST2", RefersToR1C1:="=Sheet2!R1C3"
    Range("A2").Select
'
    Dim Message, Title, Default, MyValue
      Message = "ENTER ITEM NAME"
      Title = "ITEM NAME SEARCH"
      Default = "SWEATSHIRT/XL"
      MyValue = InputBox(Message, Title, Default)
'
    Sheets("Sheet1").Select
    Range("A6").Select
'
    Do Until ActiveCell = "SWEATSHIRT/XL"
        If ActiveCell = "SWEATSHIRT/XL" Then
        End If
        ActiveCell.Offset(1, 0).Select
    Loop
'
    ActiveCell.Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Sheet2").Select
    Range("A2").Select
    ActiveSheet.Paste
'
    Sheets("Sheet1").Select
    ActiveCell.Offset(0, 1).Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Sheet2").Select
    Range("B2").Select
    ActiveSheet.Paste
'
    Sheets("Sheet1").Select
    ActiveCell.Offset(0, 4).Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Sheet2").Select
    Range("C2").Select
    ActiveSheet.Paste
'
End Sub