Copy and Paste without deleting existing data

[Niinja]

Hello All,

I'm looking to copy the data cells A28:N46 through to the range of A58:N106 with a button click macro without deleting any data that had previously been put into the range of A58:N106.

+ I would also love to be able to then clear contents on the data that was copied if possible.

So Far I have this:

"Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
Dim xSheet As Worksheet
Set xSheet = ActiveSheet
If xSheet.Name <> "Definitions" And xSheet.Name <> "fx" And xSheet.Name <> "Needs" Then
xSheet.Range("A28:N46 ").Copy
xSheet.Range("A58:106").PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
End If

Application.ScreenUpdating = True
End Sub"

 

[offthelip]

Your requirements are not very clear, your "paste" range is not the same size as the copy range. you haven't specified how to deal with this , also you have specified how to deal with cells in the paste range that do have data in them . So just as an example to try and help here is some code that picks up the data in A28:N46 and pastes it into the range A58:A76 by concatenating it with any data that already exists in that range.

Sub test()
copar = Range("A28:N46")
pasar = Range("A58:N76")
For i = 1 To UBound(copar, 1)
 For j = 1 To UBound(copar, 2)
  pasar(i, j) = pasar(i, j) & copar(i, j)
 Next j
Next i
Range("A58:N76") = pasar


End Sub

 

[Niinja]

I'm trying to do the following. The last right-hand row is Column 'N'.

Copy data without deleting data validation etc, and paste into the A64 and below rows.

 

[offthelip]

sorry but that doesn't make it any clearer