Create Macro To Copy Moving Range of Rows

Thanks Rylo. I was able to take pieces of this macro and just use the piece for repeating the data below the original range.

You have saved me hours of work! Thanks again!

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