To find a value in a row then to offset values based on code. *tricky*

It is not clear to me what you are trying to do but I will point out where it is wrong.

Set cell = Selection.Find(What:="VPD", After:=ActiveCell, LookIn:=xlFormulas, _
 LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
 MatchCase:=False, SeachFormat:=False)

The above code is going to return a range. Because you set the search parameters as "VPD", the variable cell will return a value of "VPD".

c.Offset(0, cell) = Vpd

saying "cell" is the same as telling the code cell.value, which as described above is "VPD". So you are trying to offset by the string "VPD" rather than a numerical value ie

c.Offset(0, "VPD") = Vpd

If you want an answer to your main problem, submit an example workbook which clearly shows what you want to accomplish.

Thank you for the response

I attached an example of what I am trying to accomplish
Thanks for helping me understand the search code I have added.

You workbook example only has data, not any example of what you want to accomplish. Explain what you want like I am five years old.

Okay

In the workbook I attached I marked a V under the VPD Column that I want to increment for every visit code

Visits = Array("H175", "H200", "H209", "H300", "H400", "H600", "K100", "K200", "K305", "B200", "B401", "B500")

Sorry if I didn't illustrated well enough

For Each c In Intersect(Range("C:C"), ActiveSheet.UsedRange) ---> Column containing the codes
For vcount = LBound(Visits) To UBound(Visits)
If c.Value = Visits(vcount) Then
c.Offset(0, I want to add the location where VPD(header) is ) = Vpd <----- then add a V for every code captured as a visit ( that way I can have a count)

I could add the location and count the columns but I wanted to find a solution to dynamically update itself on which column VPD (header) resides because it can change depending on codes/

There is no value in any cell in column C that is in the array Visits and as such there is no scenario where the if statement will be true. As such the proceding line of code will never be considered.

Your explanation is still lacking and unfortunately I am not going to be able to assist you anymore. I wish you the best of luck in finding the solution to your problem.