Hi Sylvia,

I have cooked up:

Sub SylviasCopy()
Dim intLook As Integer
Dim intCol As Integer

intLook = 10

For intCol = 1 To 14
If Worksheets("Sheet1").Cells(2, intCol).Value = intLook Then
Worksheets("Sheet2").Cells(1, intCol).Value = intLook
' Exit For
End If
Next

End Sub

This will copy all valid values from sheet1 to sheet2
Top copy only the first valid value remove the character before Exit
For

Hoop this helps,

Executor