Talán:    

Dim Oszlopok As Range
    
Set Oszlopok = Range("B:B, D:D, F:F, J:M")
Selection.Copy
Selection.Insert Shift:=xlDown
Application.Intersect(Selection, Oszlopok).ClearContents

Bár nem világos, hogy a példádban a 14. sor a Selection-höz képest hol helyezkedik el...