Я хочу Ведущее устройство UserControl (страница Master, но для UserControls)

Вы все их находите, проблема в том, что каждый ответ перезаписывает R56 на другом листе. Вот код, который продвигает эту ячейку назначения при каждом повторении цикла, а также избегает плохой практики выбора и активации каждого листа и ячейки, с которыми вы работаете:

Sub Copiar()  
Dim range1 As Range, destin as Range  
Set range1 = Range("k56:k58")
Set destin= Sheets("Plan2").Range("r56")  
For Each cell In range1
   If cell.Value = Range("R55").Value Then
      cell.Offset(0, 2).copy destin
      set destin=destin.offset(1,0)    ' Crucial bit here
   End If
Next  
End Sub