ich würde nicht so viele Buttons erstellen. Das wird unübersichtlich und aufwendig.

die aktive Zelle  ist Activecell 

deren Zeilennummer ist Activecell.row

Sub Zeilekopieren()
    Dim ws     As Worksheet, wsnew As Worksheet
    Set ws = ActiveSheet
    Application.ScreenUpdating = False
    Set wsnew = Worksheets.Add(after:=Worksheets.Count)
    ws.Rows(ActiveCell.Row).Copy wsnew.Rows(1)
    Application.CutCopyMode = False
    ws.Activate
    Application.screenupdating  = True
    
End Sub