Search criteria and place info from cells in another sheet of cells

[Caveman1964]

Please help...I have spent hours trying to figure this out but nothing works....yes i am very ignorant about VBA and trying to learn but need this.
I need a search button as described below.
Any help will be appreciated.
Sheet 1

	A	B	C	D	E	F
1	123456
2	234567
3	345678
4	456789	10/2/18	10/3/18		10/5/18	10/8/18
5	567890

<tbody>
</tbody>

Sheet 2 - A macro vba search button that finds criteria in A:A on sheet 1
For example, search finds job 456789 and picks up what is in row with 4 of sheet 1 (Job number)
And puts it in cells on sheet 2 like this.

	A
1	10/2/18
2	10/3/18
3
4	10/5/18
5	10/8/18

<tbody>
</tbody>

 

[mumps]

Try:

Sub CopyRange()
    Application.ScreenUpdating = False
    Dim response As String, val As Range, lCol As Long
    response = InputBox("Please enter value to search.")
    If response = "" Then
        Exit Sub
    Else
        Set val = Sheets("Sheet1").Range("A:A").Find(response, LookIn:=xlValues, lookat:=xlWhole)
        If Not val Is Nothing Then
            lCol = Sheets("Sheet1").Cells(val.Row, Columns.Count).End(xlToLeft).Column
            Sheets("Sheet1").Range("B" & val.Row).Resize(1, lCol - 1).Copy
            Sheets("Sheet2").Cells(1, 1).PasteSpecial Transpose:=True
        Else
            MsgBox ("Value not found.")
        End If
    End If
    Application.CutCopyMode = False
    Application.ScreenUpdating = True
End Sub

 

[Caveman1964]

Wow!...this worked perfect. Thank you so much mumps!

 

[mumps]

You are very welcome.