Paste cell range below specific named cell(s)

[nathanzumbaugh]

Would love to paste a range of cells from one sheet to another sheet, but have the qualifier to be the first row available below a named cell.
Here is the code that works well to just paste it to the sheet, but i need to specify where it goes.
-----
Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
Dim copySheet As Worksheet
Dim pasteSheet As Worksheet

Set copySheet = Worksheets("Sheet4")
Set pasteSheet = Worksheets("Sheet3")

copySheet.Range("a3:l3").Copy
pasteSheet.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues


Application.CutCopyMode = True
Application.ScreenUpdating = True

End Sub
-----

Want to be able to click the button to make it paste to the first row below cells named "work" as seen in the screenshot.

 

[rollis13]

Tweak the line to:

pasteSheet.Range("work").Offset(1, 0).PasteSpecial xlPasteValues

 

[nathanzumbaugh]

Tweak the line to:

pasteSheet.Range("work").Offset(1, 0).PasteSpecial xlPasteValues

Holy crap! Thanks!

What about making the values that get copied to "clear out" once the button is clicked. Then i know it has been copied to the other sheet?
the clear contents syntax doesn't work with the "PasteSpecial xLPasteValues" being on the end...
Let me know.
Thanks again.

 

[nathanzumbaugh]

And, need another tweak to enable me to make multiple command buttons to add multiple ranges of data to populate below the "work" cell without overwriting the single row it populates.

This doesnt work...

 

[rollis13]

# Post#3:
After the PasteSpecial line add:

copySheet.Range("A3:L3").ClearContents

# Post#4:
Could be a solution:

'...
copySheet.Range("A3:L3").Copy
If pasteSheet.Range("work").Offset(1, 0) <> "" Then
    pasteSheet.Range("work").End(xlDown).Offset(1, 0).PasteSpecial xlPasteValues
Else
    pasteSheet.Range("work").Offset(1, 0).PasteSpecial xlPasteValues
End If
copySheet.Range("A3:L3").ClearContents
'...

but this has nothing to do with the topic of this thread.

 

[nathanzumbaugh]

Thanks you Rollis. I know its not specific to the thread title. Its been a long time since ive hit any forums. Thank you again for your patience.
NZ

 

[rollis13]

Thanks for the feedback, glad having been of some help.
By the way, if so, you probably need to mark this thread as [Solved].

 

[nathanzumbaugh]

Did. Thanks again...but ill be posting another one about streamlining button usage...keep your ears on.