VBA for Copy and paste to last row

[cufflink23]

I want to copy and paste G2:M2 to the last row in that range. How do i write the code to paste the selection to the last row, defined by column A.

 

[njimack]

Welcome to the board.

Sub Copy()
Dim Last_Row As Long

Last_Row = Range("G2").End(xlDown).Offset(1).Row

Range("G2:M2").Copy Range("G" & Last_Row)

End Sub

 

[cufflink23]

OK, so that is not working. let me give you some more detail.

Columns A-F will stay the same, the data will just get longer (each week/month). So i am writing formulas in columns G thru M, but want to copy those forumlas to the end of the data (defined by column A). That is the part I want to automate with the macro.

 

[njimack]

Change

Last_Row = Range("G2").End(xlDown).Offset(1).Row

to

Last_Row = Range("A" & Rows.Count).End(xlUp).Row

 

[cufflink23]

Still not working. Its not pasting the formulas in G2:M2 to the bottom of the data set

 

[njimack]

Reading your original post, I assumed you wanted the formulae pasted to the last row. The below code will paste to the entire range...

Sub Copy()
Dim Last_Row As Long
Last_Row = Range("A" & Rows.Count).End(xlUp).Row
Range("G2:M2").Copy Range("G3:M" & Last_Row)
End Sub

 

[JackDanIce]

An altnernative to njimack's suggestion is:

Sub CopyFormulae()

Dim i as Long

Application.ScreenUpdating = False

i = Range("A" & Rows.Count).End(xlUP).Row
Range("G2:M" & i).FillDown

Application.ScreenUpdating = True

End Sub

 

[cufflink23]

thanks to both of you, I have it working now.

 

[TonyStark]

Hi guys,
I'm posting here 'cause the problem is similar to the one already solved, however, I still need some help. I have a table with 6 rows and a few columns. I want to add a "+" button in order to paste a copy of the last row in use. To be more specific, if I press +, I need to insert a copy of row 6 (A6:E6), to row 7 (A7:E7). I need to use the button every time i want to add one more row, so I must always know which one's the last row in use, and where to paste a copy of the row. It's very important to be copy & paste.
Thanls!

 

[IvanDIP]

You give a solution to fill the same datas till the last row.
How NOT FILL but just COPY AND PASTE a ROW aftrer the last row of a table?
Thanks Ivan