Вопрос от чайника про Deselect - VB

Формулировка задачи:

Sub My2()
' // (Gorkom Partii)
   Dim D, F, E, A, B, C  
      
    D = Selection.Columns.
    B = Selection.
    E = Selection.Row
     A = B  D + B
      Cells(E, A).
      Selection.Copy
      Cells(E + , A).
      Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=, Transpose:=
     A
 Sub

Этот корявый макрос я использую для копирования стиля выделенного диапазона ячеек.
После выполнения цикла одна ячейка остается злостно выделенной - вокруг нее бегают муравьи.
Как от этого избавиться, как сделaть Deselect?

Решение задачи: «Вопрос от чайника про Deselect»

textual
                            Листинг программы 
                        
                            Application.CutCopyMode = False