title: VBA find Copy and Paste by matching values in multiple column
body: <p>I need to find VBA Code. I Have 2 sheets "FinalData" and "ConsultantSheet". In "FinalData" I have a data from column A "Names" and B to R Time (1901 Rows). In "ConsultanatSheet" I have data in A1 (Names) . I want that if "FinalData" has the same name, as i have it in "ConsultantSheet" (B1) AND have values greater than 0 in  any of the cloumn (B3 TO R3) then copy Entire Row from "Final Data" and paste it in "ConsultantSheet" in A TO R. and loop from ROW 2 to ROW 1901...</p>
  
  <p>Thanks in Advance for help!</p>
  
  <pre><code>Dim EmployeeType As String
  Dim finalrow As Integer
  Dim Duration As Integer
  Dim i As Integer
  Dim j As Integer
  
  j = 2
  
  Worksheets("Consultant Sheet").Range("A3:P2000").ClearContents
  EmployeeType = Sheets("Consultant Sheet").Range("A1").Value 
  finalrow = Sheets("Final Data").Range("B" &amp; Rows.Count).End(xlUp).Row 
  
  For i = 2 To finalrow 
  
      If Worksheets("Final Data").Cells(B, 2) = EmployeeType And _
         (Worksheets("Final Data").Cells(E, 2) &gt; 0) Or _
         (Worksheets("Final Data").Cells(F, 2) &gt; 0) Or _
         (Worksheets("Final Data").Cells(G, 2) &gt; 0) Or _
         (Worksheets("Final Data").Cells(H, 2) &gt; 0) Or _
         (Worksheets("Final Data").Cells(i, 2) &gt; 0) Or _
         (Worksheets("Final Data").Cells(j, 2) &gt; 0) Or _
         (Worksheets("Final Data").Cells(K, 2) &gt; 0) Or _
         (Worksheets("Final Data").Cells(L, 2) &gt; 0) Or _
         (Worksheets("Final Data").Cells(M, 2) &gt; 0) Or _
         (Worksheets("Final Data").Cells(N, 2) &gt; 0) Or _
         (Worksheets("Final Data").Cells(O, 2) &gt; 0) Or _
         (Worksheets("Final Data").Cells(P, 2) &gt; 0) Or _
         (Worksheets("Final Data").Cells(Q, 2) &gt; 0) Or _
         (Worksheets("Final Data").Cells(R, 2) &gt; 0) Then        
      Worksheets("Final Data").Cells(B, 2).Resize(1, 1000).Copy
      Worksheets("Final Data").Cells(j, "P").Resize(1, 1000).PasteSpecial xlPasteNumberFormats 
          j = j + 1
      End If 
  Next i
  
  End Sub
  </code></pre>