Create Macro To Copy Moving Range of Rows

One last thing. Is it possible for you to add the code that lets you paste the data as values? Currently I have formulas in the data I am copying and I want to make the duplicate data values only.

Any help would be appreciated.

Thanks!

Hi

Here goes

Sub aaa()
  
  Dim SrcSH As Worksheet
  Dim OutSH As Worksheet
  Set SrcSH = ActiveSheet
  Sheets.Add after:=Sheets(Sheets.Count)
  Set OutSH = ActiveSheet
  
  SrcSH.Select
  Rows("10:" & Cells(Rows.Count, 1).End(xlUp).Row).EntireRow.Copy
  OutSH.Cells(Rows.Count, 1).End(xlUp).PasteSpecial (xlPasteValues)
  Rows("10:" & Cells(Rows.Count, 1).End(xlUp).Row).EntireRow.Copy
  Cells(Rows.Count, 1).End(xlUp).Offset(3, 0).PasteSpecial (xlPasteValues)
  Application.CutCopyMode = False
  
  
End Sub

rylo

Rylo,

Thanks again . I can't thank you enough as I would have spent days trying to think of another solution that would not be even close to this. This is exactly what I needed to complete my project.

Just picked myself up one of those beginner Excel VBA Programming books to start getting a feel for doing some of these things on my own.

B