Need to create a button that can copy cells, create a new sheet and then paste there

Need to change the resize as well

Dim LastRow As Long
LastRow = Cells(Rows.Count, "A").End(xlUp).Row
Rows("1:100").Copy Destination:=Rows(LastRow + 2).Resize(100)