Alternative to copy / paste

[Filribeiro]

Hi guys,

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

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

[James88]

Hi FR,

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

James

[Filribeiro]

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