Help needed! Copy and Paste last Row n times - Very slow

[laura123]

I am currently trying to copy and paste last row (which contains formulas) n times at the end of my data.

I have written this so far:

>>> use code - tags <<<

            Dim lRow As Long
            Dim i As Integer
       
            For i = 1 To n
            lRow = Ws.Cells(Rows.Count, 1).End(xlUp).Row
            Ws.Range("A" & lRow).EntireRow.Copy Ws.Range("A" & lRow + 1)
           
            Next i

and it works! problem? it is very very slow... usually i just have to paste around 3-7 rows, is there a way to do that without an iteration?

In addition, how could i select all data less last row and paste as values? thank you in advance,

Laura

 

[p45cal]

or:

With ws.Cells(Rows.Count, 1).End(xlUp)
  .EntireRow.Copy .Offset(1).Resize(n)
End With

 

[laura123]

Thank you so much guys! works like a chamrm

 

[p45cal]

works like a chamrm

Now I have to find out what a chamrm is.

 

[laura123]

haha