Command Control-cut range from one sheet to another sheet in same workbook

[nathanzumbaugh]

I haven't seen a post with this specific question yet.

I am trying to use a command control click button to:
1-cut range of cells from one sheet to another sheet
2-this range would be inserted into the destination sheet below a specific named cell in the next available row

Here is the current VBA:
----
Private Sub CommandButton1_Click()
Worksheets("gjswork").Range("d4:l4").Copy Worksheets("summary").Range("d4:l4")
Worksheets("gjswork").Range("d4:l4").ClearContents

End Sub
-----
There will obviously need to be some lines added to accomplish the requirement of adding the data below a certain cell with a name.
The selected data would be put under the cell on sheet Summary below the cell named gjssum, starting in D8.

I apologize in advance for errors in this post submission.

 

[rlv01]

Perhaps something like this.

Private Sub CommandButton1_Click()
    Dim Ofs As Long
    
    With Worksheets("summary")
        If .Range("gjssum").Value = vbNullString Then
            Ofs = 0
        Else
            Ofs = .Cells(.Rows.Count, .Range("gjssum").Column).End(xlUp).Row - .Range("gjssum").Row + 1
        End If

        Worksheets("gjswork").Range("d4:l4").Copy .Range("gjssum").Offset(Ofs)
    End With

    Worksheets("gjswork").Range("d4:l4").ClearContents
End Sub

(Tip: For future posts , please try to use code tags like I did above when posting code. It makes your code easier to read and copy.

How to Post Your VBA Code

Post your VBA code.

www.mrexcel.com

)