title: How to insert the copied visible rows from the top into in exsisting data
body: <p>how to insert the Copied rows into same exsisting data , i want to insert that rows which i copied in the code given below in exsisting data and same sheet only</p>
  
  <pre><code>Name    Location    Salary
  Sy      Hyd         12,000
  Ay      Hyd         13,000
  Raju    Hyd         15,000
  </code></pre>
  
  <p>i want to copy name location and salary from above table and insert the copied data into same above table from the top (Below header)</p>
  
  <pre><code>Sub Referral()
  
  Application.ScreenUpdating = False
  
  With Sheets("Sheet3")
  
      'this is generic, you may need to adjust this based on your sheet and data needs
      Intersect(.UsedRange, .UsedRange.Offset(1)).SpecialCells(xlCellTypeVisible).Copy
  
  End With
  
  'goes to cell below last used cell in column A
  Sheets("Sheet4").Cells(Rows.Count, 1).End(xlUp).Offset(1).PasteSpecial xlPasteValues
  
  
  Application.ScreenUpdating = True 'don't forget to turn on your ScreenUpdating again!
  
  End Sub
  </code></pre>