Sub test3()
Range("AD3:BF3").Copy
ActiveCell.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False

End Sub

Just don't select range AD3:BF3, then the activecell will not change.


"Cesar_us" wrote:

I am very new to writing macros and very green.

I have the following macro to copy and paste a column of cells.

Sub copypaste()
'
' copypaste Macro
' Macro recorded 6/22/2005 by
'
' Keyboard Shortcut: Ctrl+q
'
Range("AD3:BF3").Select
Selection.Copy
Range("AD19:BF19").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
End Sub


In the line [Range("AD19:BF19").Select] is there any way I can get it paste
it in the Active Cell of choice.

Thanks,

Cesar.