How can i make these code in 1 button?

[Kian]

Private Sub FINAL_Click ()
Dim xsheet As Worksheet
Set xsheet = ActiveSheet
If xsheet.Name <> "Definitions" And xsheet.Name <> "fx" And xsheet.Name <> "Needs" Then xsheet.Range ("L2: L31" ). Copy
xsheet.Range ("C2: C31"). PasteSpecial Paste: = x IPasteAll, Operation: = xlNone, SkipBlanks:= False, Transpose: = False
End If
Application.ScreenUpdating = True
End sub

Private Sub Commandbutton1_click()
ActiveSheet.copy After:=Worksheets(sheets.count)
On Error Resume Next
ActiveSheet.Name=format(Date, "mmdd")
End Sub

 

[DanteAmor]

Try this:

Private Sub FINAL_Click()
  Dim xsheet As Worksheet
  Application.ScreenUpdating = False
  
  Set xsheet = ActiveSheet
  If xsheet.Name <> "Definitions" And xsheet.Name <> "fx" And xsheet.Name <> "Needs" Then
    xsheet.Range("L2:L31").Copy
    xsheet.Range("C2:C31").PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  
    xsheet.Copy After:=Worksheets(Sheets.Count)
    On Error Resume Next
    ActiveSheet.Name = Format(Date, "mmdd")
  End If
  
  Application.ScreenUpdating = True
End Sub

------------------
Note Code Tag:
In future please use code tags when posting code.
How to Post Your VBA Code it makes your code easier to read and copy and it also maintains VBA formatting.