I only want to copy the values when using this macro.
Code:
Sub secondleg()
FindItem = Sheets("Results").Range("T2").Value
On Error Resume Next
FoundItem = Sheets("Results").Range("H3:H65535").Find(What:=FindItem).Address
On Error GoTo 0
If FoundItem <> "" Then
PasteLocation = Sheets("Results").Range(FoundItem).Offset(0, 15).Address
Sheets("Results").Range("V2:AA2").Copy Sheets("Results").Range(PasteLocation)
End If
End Sub