Sub Button1_Click()

    Dim nr As Long  'next row
    Dim rng As Range
    
Set rng = Range("A7:Q7")
nr = Cells(Rows.Count, "C").End(xlUp).Row + 1

rng.Copy Cells(nr, 1)
rng.ClearContents
Range("A7").Select
Application.CutCopyMode = False

End Sub