Please does anybody knows what is this for? What is doing?

Do While ActiveCell.Value< ""
beginaddrs=ActiveCell.Address
endaddrs=ActiveCell.offset(0,35).Address
Application.ScreenUpdating=True

Thank you!!