title: VBA Code to Copy Cells with Color to different cells in same sheet
body: <p>I have an issue which is to copy cells that contain a color and some value in it to a range. The issue with the below code is that it copy pastes the entire range and not the ones that are in red color.</p>
  
  <pre><code>Sub testing()
  
  Dim Myrange As Range
  Dim Mycell As Range
  Dim Target As Range
  
  Set Myrange = Sheet1.Range("A3:A15")
  Set Target = Sheet1.Range("B3:B15")
  
  For Each Mycell In Myrange
      If Mycell.Interior.ColorIndex = 3 Then
         Mycell.Copy Target
      End If
  Next Mycell
  
  End Sub
  </code></pre>
  
  <p>My expected result is to copy paste cells that contain only red color in the target range. (If A3 cell is red color I want B3 cell to be red color as well. But what I dont want is the entire range of the target cells to turn red)</p>