2 makroyu birşeltirmek

[aydgur]

Sub Aktaryeni2008()
SonSatir = Sheets("STOKLAR").[A65536].End(3).Row + 1
Sheets("SATIŞ").Range("A2:R80").Copy Sheets("STOKLAR").Range("A" & SonSatir)
10 MsgBox "STOKLARA AKTARILDI"
End Sub
......................
Sub sayfalaraaktaryeni2008()
Sheets("satış").Select
For x = 2 To [A65536].End(3).Row
Set s2 = Sheets(Cells(x, 1).Text)
sira = s2.[A65536].End(3).Row + 1
For y = 1 To 14
s2.Cells(sira, y) = Cells(x, y + 1)

Next y
Next x
Sheets("SATIŞ").Select
Range("A2:R80").ClearContents

10 MsgBox "CARİLERE AKTARILDI"
End Sub
Bu iki makroyu ayrı ayrı düğmelerde çalıştırıyorum,sizlerden ricam TEK DÜĞMEDE çalıştırılabilirmi?

 

[hamitcan]

Sub Aktaryeni2008()
SonSatir = Sheets("STOKLAR").[A65536].End(3).Row + 1
Sheets("SATIŞ").Range("A2:R80").Copy Sheets("STOKLAR").Range("A" & SonSatir)
10 MsgBox "STOKLARA AKTARILDI"
sayfalaraaktaryeni2008
End Sub