Alternative to copy / paste

Hi guys,

Is it possible to make a macro that does the same of the following but without copy / paste?

Code:

---

ActiveSheet.Range(Cells(20, 1), Cells(20 + n - 1, 1)).EntireRow.Select

Dim i As Integer
Dim Rng  As Range
    i = Range("A2:A2")
    Set Rng = Selection
    Rng.Copy Rng.Offset(Rng.Rows.Count).Resize(Rng.Rows.Count * i, Rng.Columns.Count)

---

Thanks in advance!

FR

Hi FR,

Do you have a sample spreadsheet with data? I'd be happy to take a look for you.

James

Quote:

---

Originally Posted by James88

Hi FR,

Do you have a sample spreadsheet with data? I'd be happy to take a look for you.

James

---

Hi James.

Thanks for the reply. Please find attached an example spreadsheet.

Thanks again for your help