Hola tengo las siguientes macros que se Tengo varias macros para unir ayuda

Hola tengo las siguientes macros que se me ejecutan en 100 libors abiertos estas macros me buscan si el campor esta bacio y me lo reemplaza por la condición que yo le pongo, tengo 6 macros que hacen lo mismo pero con celdas diferentes me gustaría poder jecutar estas macro en una sola voy a poner las macros para que veas que es lo que hago y mirar si puedes unirlas todas en una para se ejecuten en todos los archivos o libros que tengo abiertos,

macro 1

esta primera ´parte hace que se ejecute la macro en todos los libros

Public libro1
Sub Llamacambiar()
libro1 = ActiveWorkbook.Name
For Each wb In Workbooks
wb.Activate
Call cambiar
Next
End Sub

esta segunda parte me busca si la celda esta bacía si es asi pone NO

Sub cambiar()
Range("AV2:AV20").Select
Selection.Replace What:="", Replacement:="NO", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
ActiveWorkbook.Sabe
End Sub

Macro 2

esta primera ´parte hace que se ejecute la macro en todos los libros

Public libro1
Sub Llamacambiar()
libro1 = ActiveWorkbook.Name
For Each wb In Workbooks
wb.Activate
Call cambiar
Next
End Sub

esta segunda parte me busca si la celda esta bacía si es asi pone 1111111
Sub cambiar()
Range("AB2:AB20").Select
Selection.Replace What:="", Replacement:="1111111", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
ActiveWorkbook.Sabe
End Sub

Macro 3
esta primera ´parte hace que se ejecute la macro en todos los libros

Public libro1
Sub Llamacambiar()
libro1 = ActiveWorkbook.Name
For Each wb In Workbooks
wb.Activate
Call cambiar
Next
End Sub
esta segunda parte me busca si la celda esta bacía si es asi pone EN ARIENDO
Sub cambiar()
Range("AC2:AC20").Select
Selection.Replace What:="", Replacement:="EN ARIENDO", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
ActiveWorkbook.Sabe
End Sub

ME PODRÍAS AYUDAR CON ESTO GRACIAS TU AYUDA A SIDO MUY EFECTIVA