title: Copy data from one sheet to another sheet without deleting previous copied rows
body: <pre><code>Sub CopyRows4()
      Dim rng As Range
      Dim cl As Range
      Dim str As String
      Dim RowEmpCrnt As Long
      Dim RowUpdCrnt As Long
      Dim WshtEmp As Worksheet
  
      Set WshtEmp = Sheets("Employee Data")
      Set rng = WshtEmp.UsedRange 'the range to search ie the used range
      str1 = "Executive" 'string to look for
      str2 = "Working"
  
      Sheets("Executive").UsedRange.Value = ""
  
      RowUpdCrnt = 3
  
      For Each cl In rng.Columns("E").Rows
          If cl.Text = str1 Then
            RowEmpCrnt = cl.Row
            If WshtEmp.Cells(RowEmpCrnt, "X").Value = str2 Then
              ' If both column "A" and column "E" contain the correct value
              ' copy it to next empty row on sheet 2
              cl.Range("a3:z3").Copy Sheets("executive").Cells(RowUpdCrnt, 1)
  
              RowUpdCrnt = RowUpdCrnt + 1
            End If
          End If
      Next cl
  End Sub
  </code></pre>
  
  <p>Here I want to copy data from <code>Sheets(Employee Data)</code> starting from column A3 for only those column/rows that satisfy the conditions.</p>