Cleaning up Manual Trapdoor Hide Row/Column

Question

Sub Hide_ManualTrapDoor()
    Dim ws As Worksheet
    Dim lr As Integer, lc As Integer
    Dim ir As Integer, ic As Integer, er As Integer, ec As Integer

    If MsgBox(