Ok,
seeing that none of the fixes offered thus far have succeeded, I'd like to
ask the following. And yes, I've tried them all-- two or three different
ways. I've gotten 438 errors, 1004 errors, and Stuart's version resulted in
my cells to unmerge. And this was why I wanted to create the macro to begin
with-- so I could copy, and prevent all the properties of a cell group of
coming over to the destination.

With other macros that I've made in which I used the range.select,
selection.copy, activesheet.paste, they've worked as written.

So it seems to me that it's got to be something preceeding what I've used.

The only thing that I can think of that might cause problems is my use of the

application.inputbox().cells(1), or application.inputbox().areas(1)

I've tried both, and neither works with the activesheet.paste. Thus leaving
me thinkingthat it was my .paste use, and now it's got me wondering if the
application.inputbox is the cause.


Admittedly, none of my previous macros using the .copy, and .paste had
interactive input options. So.... what have I missed here that is causing the
activesheet.paste to fail?

Again, thank you for your helps.

Sub copyNmDwn()
Dim myRng1 As Range
Dim myRng2 As Range

Set myRng1 = Nothing
On Error Resume Next
Set myRng1 = Application.InputBox(Prompt:="Select cell range you wish to
copy from", Type:=8).Areas(1)

On Error GoTo 0

If myRng1 Is Nothing Then
Exit Sub 'user hit cancel.
End If

myRng1.Select
Selection.Copy

Set myRng2 = Nothing
On Error Resume Next

Set myRng2 = Application.InputBox(Prompt:="Select cell or range you want it
pasted to.", Type:=8).Areas(1)
On Error GoTo 0

If myRng2 Is Nothing Then
Exit Sub 'user hit cancel.
End If

myRng2.Select

With Selection
.Paste
End With


Application.ScreenUpdating = False

With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = True
End With
'set right border when at dual vertical lines.
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlThin
End With
'set bottom border if at page boundary
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
End With
'set top border if at page boundary
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThin
End With
'set Left border for sake of it all....
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThin
End With
Application.ScreenUpdating = True
End Sub

Your helps are immensely appreciated.