EXCEL VBA用于锁定偏移单元-1列为空的范围内的单元格

I need a piece of VBA coding to help me complete a project. My Knowledge of VBA is very basic so I am struggling. I give as much details as possible since I have read a similar request but still failed to complete the code.I need a piece of VBA coding to help me complet