Macro to copy and paste values in a selected row

I have a database of customer details and people can use a data form to browse through to look for ID numbers. You then click on another button that has the macro i have pasted beneath and you type in the ID and it finds and selects the row it is in, i then want to copy certain values in that row and paste on another sheet in specific cells and i need this to work each time the row is different, can anyone help please???

Here is the macro

Sub findvalue()
Search = Val(InputBox(prompt:="Enter Customer ID"))

Columns("A:A").Select
For Each cell In Selection
If cell.Value = Search Then
cell.Select
End If
Next cell

End Sub