cufflink23
New Member
- Joined
- Dec 15, 2011
- Messages
- 4
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.
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
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