title: Match name and copy from sheet 1 to sheet 2 next to matched name
body: <p>I have an Excel sheet with names in column A and an amount in column B for sheet 1.</p>
  
  <p>I have a another sheet that is sheet2 with names in A just like in sheet 1 and column B is blank.</p>
  
  <p>How can I check sheet 1 A name to check with sheet2 A name, if they match then take amount next to that name on sheet1 and copy the amount into the cell next to the matching name on sheet2 next to the name? The names on sheet1 change daily.</p>
  
  <p>I have tried this and get nothing.</p>
  
  <pre><code>Sub Macro1()
  '
  ' Macro1 Macro
  '
      Dim RowIndex As Integer 
      Sheets("Sheet1").Select
      RowIndex = Cells.Row
      While DoOne(RowIndex)
          RowIndex = RowIndex + 3
      Wend
  End Sub
  
  
  Function DoOne(RowIndex As Integer) As Boolean
      Dim Key
      Dim Target
      Dim Success
      Success = False
      If Not IsEmpty(Cells(RowIndex, 1).Value) Then
          Key = Cells(RowIndex, 1).Value
  
          Sheets("sheet2").Select
  
          Set Target = Columns(2).Find(Key, LookIn:=xlValues)
  
          If Not Target Is Nothing Then
              Rows(Target.Row).Select
              Selection.Copy
              Sheets("Sheet1").Select
              Rows(RowIndex + 1).Select
              Selection.Insert Shift:=xlDown
              Rows(RowIndex + 2).Select
              Application.CutCopyMode = False
              Success = True
          End If
  
      End If
      DoOne = Success
  End Function
  </code></pre>
  
  <p>Sheet 1:</p>
  
  <pre><code>A                                    B
  
  A One Preservation            $16.00 
  
  A&amp;D Recovery, Inc.            $8,108.46 
  
  A&amp;S Field Services, Inc.      $4,941.56 
  
  A&amp;T Jax Inc                   $1,842.48 
  </code></pre>
  
  <p>Sheet 2:</p>
  
  <pre><code>A                                        B - blank cell
  
  A One Preservation - Calvin &amp; Renee 
  
  A&amp;D Recovery, Inc. - Drew &amp; Adam    
  
  A&amp;S Field Services, Inc. - Aaron    
  
  A&amp;T Jax Inc - Tyson
  </code></pre>