Integracion de codigo

Reporte 1
Private Sub CommandButton4_Click()
fecha1 = InputBox("Fecha que desea sustituir?", "ORIGEN", Now())
If fecha1 = Empty Then Exit Sub 'mejorar con revisión validez fecha
fecha2 = InputBox("Fecha nueva?", "DESTINO", Now())
If fecha2 = Empty Then Exit Sub 'mejorar con revisión fecha
'Le preguntarás al usuario por las fechas a sustituir y la nueva, y
Selection.Replace What:="[BALANCE " & Format(fecha1, "ddmmyy"), Replacement:="[BALANCE " & Format(fecha2, "ddmmyy"), _
LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:= _
False, ReplaceFormat:=False
End sub
Hola amigo experto tengo una duda espero me puedas ayudar
estoy validando por día
y tengo varias sucursales
en e lcodigo de arriba es de una sucursal y el de abajo de otra y quiero que ambos se ejecuten la validación por día de todas las sucursales.
Selection.Replace What:="[BALANCE " & Format(fecha1, "ddmmyy"), Replacement:="[BALANCE " & Format(fecha2, "ddmmyy"), _
LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:= _
False, ReplaceFormat:=False
Lo único que cambia es este código.. Por que la fecha es para todos
lo único que deseo es integrar en un solo botón toda las sucursales, ya que por cada sucursal tenia un botón pero se hace más enredado y es por ello que quiero integrar en un solo botón todas lassucursales... Ya que nada más cambia
Selection.Replace What:="[BALANCE " & Format(fecha1, "ddmmyy"), Replacement:="[BALANCE " & Format(fecha2, "ddmmyy"), _