Excel, расширяющий выбор в пределах ЕСЛИ ТО

Question

Итак, у меня есть этот код в нескольких связанных макросах, я попытался интегрировать D_CN в основной макрос, но если бы всегда происходил сбой в этой строке, я перенес его на вызов, и это сработало.

То, что я хочу сделать, это получить 7 D_CN в строке до 1, расширив диапазон в D_O на 7 столбцов. Если я использую Выбор.Изменение размера не удается в этой строке

Call D_O

Call D_CN

Call D_CN

Call D_CN

Call D_CN

Call D_CN

Call D_CN

Call D_CN
...

Sub D_CN()
'

' D_CN Macro
'

'
    Selection.DELETE Shift:=xlToLeft

End Sub

Sub D_O()
'

' D_O MACRO
'

'
Dim MyRange As Range

Dim Cell As Object

Dim Rng1 As Range

Range("A1:A5000").Select



 'Check every cell in the range for matching criteria.
For Each Cell In Selection
    If Cell.Value = "INSTALL" Or Cell.Value = "FREIGHT" Or Cell.Value = "SET" Or Cell.Value = "BP" Or Cell.Value = "RUSH" Or Cell.Value = "FREIGHT-NON" Or Cell.Value = "THANKS" Then
        If MyRange Is Nothing Then
            Set MyRange = Range(Cell.Address)
        Else
            Set MyRange = Union(MyRange, Range(Cell.Address))
        End If
    End If
Next
MyRange.Select

End Sub