VBA code to automatically clear a cells contents when another cell is empty

Not sure what you are trying to accomplish but instead of 100 if statements use this

Dim tmpbox as range

set tmpbox = range("A8")
activesheet.unprotect

Do until tmpbox.row = 26
If tmpbox.value = "" then
tmpbox.offset(0,1).value = ""
end if
set tmpbox = tmpbox.offset(1,0)
loop
activesheet.protect