Seleção de expansão do Excel dentro de IF THEN

Question

Então eu tenho este código em algumas macros relacionadas, eu tentei integrar o D_CN na macro principal, mas se sempre falharia nessa linha, então eu o movi para uma chamada, e funcionou.

O que eu quero fazer é obter o 7 D_CN em uma fileira até 1, expandindo o intervalo em D_O por 7 colunas. Se eu usar o Selection.Resize, ele falhará nessa linha

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