4 vb koder til en!?

Jeg har 4 vb koder som jeg vil sætte sammen til en kode el. som skal køre som en!

1. Laver et nr 'som den kun skal gøre hvis der ikke er et nr!
2. Smider data på et andet ark
3. Printer et ark ud efter kode!
4. Laver en txt fil

2,3,4 skal kunne køre hver gang man trykker og 1. skal kun køre den ene gang hvis der ikke er værdi i m2

--------------------------------1--------------------------------
Private Sub CommandButton3_Click()

If IsEmpty(Worksheets("Ark2").Range("M2")) Then
    Worksheets("Data").Range("A1") = Worksheets("Data").Range("A1") + 1
    Worksheets("Ark2").Range("M2") = Worksheets("Data").Range("A1")
End If

End Sub
--------------------------------2--------------------------------
Sub Add()

Dim c(266) As Range

  With Workbooks("Test.xls").Sheets("Ark2")
    Set c(1) = .Range("M2")
    Set c(2) = .Range("N2")
    Set c(3) = .Range("C2")
    Set c(4) = .Range("C3")

  End With
 
  With Workbooks("Test.xls").Sheets("Ark12")
    .Range("D3").Value = c(1)
    .Range("J3").Value = c(2)
    .Range("B6").Value = c(3)
    .Range("B10").Value = c(4)

  End With
End Sub
--------------------------------3--------------------------------
Sub Udskriv()

Antal = Application.WorksheetFunction.CountA(Worksheets("Ark2").Range("C1:C25"))
If Antal > 0 Then
    Sheets("T " & Int((Antal + 1) / 2)).PrintOut Copies:=1
End If

End Sub
--------------------------------4--------------------------------
Sub Tekstfil()
 
  Dim fso As FileSystemObject
  Dim fsoFld As folder
  Dim fsoFil As File
 
  Dim filnavn As String
  Dim rngCopyRange As Range
  Dim n As Variant
  Dim s As String
  s = ""
  Set rngCopyRange = ThisWorkbook.Sheets(1).Range("a1:a264")
  filnavn = "Test " & ThisWorkbook.Sheets(2).Cells(2, 14).Value & ".txt"
 
  Set fso = CreateObject("Scripting.FileSystemObject")
  Set fsoFld = fso.GetFolder("C:\test\")
 
  If fso.FileExists(fsoFld & "\" & filnavn) Then
    n = 1
    Do While fso.FileExists(fsoFld & "\" & Left( _
      filnavn, Len(filnavn) - 4) & "" & n & ".txt")
      n = n + 1
    Loop
    s = ""
  End If
  filnavn = Left(filnavn, Len(filnavn) - 4) & s & n & ".txt"
 
  With Workbooks.Add
    With Sheets(1)
      .Range("a1:a264").Value = rngCopyRange.Value
      ActiveWorkbook.SaveAs Filename:=fsoFld & "\" & filnavn, FileFormat:=xlText
    End With
    Application.DisplayAlerts = False
    .Close
    Application.DisplayAlerts = True
  End With
 
  Set fso = Nothing
  Set fsoFld = Nothing
End Sub
-----------------------------------------------------------------