Se pueden asignar tres macros a un boton?

Buenas tardes experto... Tengo una macro que a continuación le anexo, esta asignada a un botón, la función que hace es que me copia datos de la Hoja3 a la Hoja4 con base a que en la fila haya un numero 1, pero necesito que antes de que ejecute esta función primero me limpie el contenido de la Hoja4 en el rango (B24:E60), y después ejecute la función de pegar lo anterior y por ultimo necesito también hacer que en base a la columna B desde la fila 1 a la 65000 busque todas las filas con el numero 1 y coloque un "letrero" en la columna H de la fila seleccionada. Se podrá hacer todo esto... Espero pueda ayudarme. Anexo la macro que tengo

Private Sub SALIDAS_Click()
fila = 24
Hoja3.Select
Range("B65000").End(xlUp).Offset(1, 0).Value = "end"
Range("B5").Select
Do While ActiveCell.Value <> "end"
If ActiveCell.Value = 1 Then
Range(ActiveCell, ActiveCell.Offset(0, 4)).Copy
Hoja4.Cells(fila, 1).PasteSpecial Paste:=xlValues
fila = fila + 1
End If
ActiveCell.Offset(1, 0).Select
Loop
ActiveCell.ClearContents
Hoja4.Select
End Sub

saludos y muchas gracias.