Adding to Code

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim c As Range
Dim FirstAddress As String
Static ColIdx
Cancel = True
If IsEmpty(ColIdx) Then ColIdx = 33 Else ColIdx = ColIdx + 1
If ColIdx > 46 Then ColIdx = 33
ActiveCell.Interior.ColorIndex = ColIdx
With Range("A5:R62")
  Set c = .Find(ActiveCell.Value, LookIn:=xlValues)
  If Not c Is Nothing Then
    FirstAddress = c.Address
    Do
      c.Interior.ColorIndex = ColIdx
      Set c = .FindNext(c)
    Loop While Not c Is Nothing And c.Address <> FirstAddress
  End If
End With
End Sub
 
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, _
Cancel As Boolean)
Dim rng As Range
Set rng = Range(ActiveCell, ActiveCell.Offset(0,))
rng.Copy Destination:=ActiveCell.Offset(1, 2)
End Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim c As Range
Dim FirstAddress As String
Static ColIdx
Cancel = True
If IsEmpty(ColIdx) Then ColIdx = 33 Else ColIdx = ColIdx + 1
If ColIdx > 46 Then ColIdx = 33
Target.Interior.ColorIndex = ColIdx
With Range("A5:R62")
  Set c = .Find(Target.Value, LookIn:=xlValues)
  If Not c Is Nothing Then
    FirstAddress = c.Address
    Do
      c.Interior.ColorIndex = ColIdx
      Set c = .FindNext(c)
    Loop While Not c Is Nothing And c.Address <> FirstAddress
  End If
End With
Target.Copy Destination:=Target.Offset(1, 2)
End Sub