VBA: Remove vertical borders if cell is blank

I have been trying to piece together some script to remove vertical borders for a row if there is no data in the first column for that row. Following is the script I have so far:

'Remove Border for totals
    Dim rngToChange As Range
    Dim C As Range
    Set rngToChange = ActiveSheet.Range("A2:H" & LR)
    For Each C In rngToChange
        If IsEmpty(C) Then
            C.Borders(xlDiagonalDown).LineStyle = xlNone
            C.Borders(xlDiagonalUp).LineStyle = xlNone
            C.Borders(xlEdgeLeft).LineStyle = xlNone
            C.Borders(xlEdgeRight).LineStyle = xlNone
        Else
        End If
    Next

Any help in resolving would be appreciated.

Thanks,

Met