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