Subroutine Works but I get a Run Time Error 13

CharlieB

Instead of the Worksheet_SelectionChange event, I suggest you use the Worksheet_Change instead i.e. it acts when you change a value, not when you just move cell.

I changed the data validation so only "V" is permitted in columns E and H. I wasn't sure of the purpose of two Vets columns so the code makes the values the same. If you change one to V, the flag appears in B. Delete the V (in either column) and it will be gone.

I've added comments to help: 

Private Sub Worksheet_Change(ByVal Target As Range)

    Dim tr As Long
    Dim flagcopy As Long
    Dim Pic As Shape

    On Error Resume Next

    ' Do nothing unless single cell changed in column E or H
    If Not (Target.Column = 5 Or Target.Column = 8) Or Target.CountLarge <> 1 Then Exit Sub

    ' stop even code retriggering itself
    Application.EnableEvents = False
    tr = Target.Row
    ' make both Vets columns the same
    Range("E" & tr).Value = Target.Value
    Range("H" & tr).Value = Target.Value
    ' first find (and delete) if there's a picture in column B already
    For Each Pic In Worksheets("Names").Shapes
        ' loop through like shapes and delete if in column B same row
        If Pic.Type = 13 And Pic.TopLeftCell.Address = Range("B" & tr).Address Then
           Pic.Delete
           flagcopy = 0
           Exit For
        End If
    Next Pic

    ' now check new value
    If Target.Value = "V" Then
        ' add a flag
        Worksheets("Images").Shapes("Picture 1").Copy: Worksheets("Names").Range("B" & tr).PasteSpecial
        flagcopy = 1

        ElseIf Target.Value <> "" Then
        ' reset other pasted values
        MsgBox "Looks like you pasted an illegal value (now reset to blank)"
        Exit Sub

    End If
    ' move to cell only if flag pasted
    If flagcopy = 1 Then Worksheets("Names").Range("B" & tr).Select
    Application.EnableEvents = True
End Sub

Don't have much time but hope this helps. If so, please mark this Answer as Seelected. If not, add to the discvussion below please.