title: Copy data based on multiple if statements
body: <p>I am getting a run time error '438': object doesn't support this property or method on the IF statements.
  I am trying to copy data from one sheet to another given if all 4 if statements are met.</p>
  <pre><code>Sub update_cell1()
  
  Dim lRow As Long
  
  lRow = Cells(Rows.Count, 1).End(xlUp).Row
  
  For i = 3 To lRow
     If Worksheets(&quot;TEST&quot;).Cells(i, 5).vlaue = Worksheets(&quot;Cell_1&quot;).cell(1, 2).Value Then 'B1
          If Worksheets(&quot;TEST&quot;).Cells(i, 1).vlaue = Worksheets(&quot;Cell_1&quot;).cell(1, 1).Value Then 'A1
              If Worksheets(&quot;TEST&quot;).Cells(i, 6).vlaue &lt;&gt; &quot;&quot; Then 'not blank
                  If Worksheets(&quot;TEST&quot;).Cells(i, 8).vlaue &lt;&gt; &quot;&quot; Then 'not blank
                  
                      Worksheets(&quot;TEST&quot;).Rows(i).Copy
                      Worksheets(&quot;Cell_1&quot;).Active
                      b = 5
                      Worksheets(&quot;Cell_1&quot;).Cells(b + 1, 1).Select
                      ActiveSheet.Paste
                  End If
              End If
          End If
        End If
      Next
      
  Application.CutCopyMode = False
  Worksheets(&quot;Cell_1&quot;).Active
  
  End Sub
  </code></pre>