title: run macro on AutoFilter and show data in new sheet
body: <p>Actually what i want to do , i have following data With Auto Filtering ,</p>
  
  <p><img src="https://i.stack.imgur.com/N7nsR.jpg" alt="enter image description here"></p>
  
  <p>->   I want to create new sheet for each unique Name selected from filtering .i.e. if John and Alex are selected then 2 new sheets should be created one for John and second for Alex , and each of them show own data (Name + No + R). When Next time if master sheet get updated then news data should be appended when i run macro. i'm using following code but its not working 100%.</p>
  
  <pre><code>Sub mycar()
     x = 2
     Do While Cells(x, 1) &lt;&gt; ""
     If Cells(x, 1) = "John" Then
     Worksheets("Sheet1").Rows(x).Copy
     Worksheets("Sheet2").Activate
     eRow = Worksheets("Sheet2").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
     ActiveSheet.Paste Destination:=Worksheets("Sheet2").Rows(eRow)
     End If
     Worksheets("Sheet1").Activate
     x = x + 1
     Loop
  End Sub
  </code></pre>
  
  <p>-> Here it copy only single data Written in the quotes.</p>
  
  <p>-> Second time if i run this code , it is appending same data again with new data.</p>
  
  <p>Help me to avoid this mistakes.</p>
  
  <p>Thank you.</p>