Sub Copyandpaste()
'
' Copyandpaste Macro
' Macro recorded 7/29/2005 by BSchwarz
'
' Keyboard Shortcut: Ctrl+Shift+C
'
Dim rng as Range

set rng = Sheets("KanbanOrders") _
.Cells(rows.count,1).End(xlup)(2)

Range("A2:M395").Copy
rng.pasteSpecial xlValues

End Sub

--
Regards,
Tom Ogilvy

"Barbara" wrote in message
...
Anyone???

"Barbara" wrote:

It's working, but bringing over formulas, when I recorded the macro I
did a
paste special with vaules only.
Can you make it do that?
thanks for you help,
Barb

"Tom Ogilvy" wrote:

Sub Copyandpaste()
'
' Copyandpaste Macro
' Macro recorded 7/29/2005 by BSchwarz
'
' Keyboard Shortcut: Ctrl+Shift+C
'
Dim rng as Range

set rng = Sheets("KanbanOrders") _
.Cells(rows.count,1).End(xlup)(2)

Range("A2:M395").Copy Destination:=rng

End Sub

--
Regards,
Tom Ogilvy


"Barbara" wrote in message
...
I have a source sheet ( which will change often) and a data entry
sheet
will
will be updated almost everyday. When the source sheet changes it
will
change
vaules in the data entry sheet.
I want to extract the vaules only out of the data entry sheet every
time
it
is updated into a main archive sheet in a user friendly way.
All sheets staying in the same workbook.
I recorded a macro to copy and paste the same rows and columns out
of the
data entry sheet and into the archive sheet. But the vaules paste
into the
same location everytime.
I want the user to click into a row of their choice (next empty one)
and
click on a macro button to paste all new vaules into the archive.
What do I need to change in this macro to make it work ..
Thanks,
Barb


Sub Copyandpaste()
'
' Copyandpaste Macro
' Macro recorded 7/29/2005 by BSchwarz
'
' Keyboard Shortcut: Ctrl+Shift+C
'
Range("A2:M395").Select
Selection.Copy
Sheets("KanbanOrders").Select
Range("A2").Select
ActiveSheet.Paste
Range("N35").Select
End Sub