Filribeiro
04-24-2015, 08:17 AM
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
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