All I want it to do is copy one section of a tab to another section on the
same tab and change the formulas to values. When I run it all it does is
take to another tab in the spreadsheet.

Help!

Amy


Sub SummaryCopy()
'
' SummaryCopy Macro
'
' Keyboard Shortcut: Ctrl+Shift+C
'
Range("A2:P15").Select
Selection.Copy
Range("A17").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
End Sub

I see no reason why your macro would change worksheets. As a random attempt,
perhaps try this shorter code:

Sub ValueCopy()
Range("A17:P30") = Range("A2:P15").Value
End Sub

Note that you'll need to setup your shortcut key again.
--
Best Regards,

Luke M
*Remember to click "yes" if this post helped you!*


"cvgairport" wrote:

All I want it to do is copy one section of a tab to another section on the
same tab and change the formulas to values. When I run it all it does is
take to another tab in the spreadsheet.

Help!

Amy


Sub SummaryCopy()
'
' SummaryCopy Macro
'
' Keyboard Shortcut: Ctrl+Shift+C
'
Range("A2:P15").Select
Selection.Copy
Range("A17").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
End Sub

Luke,

Thanks so much for helping. I typed in your code and it worked flawlessly.
Though I still hate Excel macros (Lotus was so much simpler) I feel empowered
to try more.

Amy

"Luke M" wrote:

I see no reason why your macro would change worksheets. As a random attempt,
perhaps try this shorter code:

Sub ValueCopy()
Range("A17:P30") = Range("A2:P15").Value
End Sub

Note that you'll need to setup your shortcut key again.
--
Best Regards,

Luke M
*Remember to click "yes" if this post helped you!*


"cvgairport" wrote:

All I want it to do is copy one section of a tab to another section on the
same tab and change the formulas to values. When I run it all it does is
take to another tab in the spreadsheet.

Help!

Amy


Sub SummaryCopy()
'
' SummaryCopy Macro
'
' Keyboard Shortcut: Ctrl+Shift+C
'
Range("A2:P15").Select
Selection.Copy
Range("A17").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
End Sub