Bom dia!!

Sinceramente eu não entendi!!

Seria nesta parte...(.EntireRow.Delete)

Selection..EntireRow.Delete Shift:=xlUp

chok, me baseando pelo que postou, você quer Deletar somente os Ranges selecionados e não a Linha, veja que temos diferença nos termos.

Deletar Linha = Apagar a linha inteira, e não precisariamos usar Range("K2:P2")

Deletar somente a Seleção, já se explica por si mesmo.

Mas lembre-se que o cursor tem de estar na linha, e como não postou como irá chegar até a mesma, então, se for esta segunda a opção que quer, a instrução seria :
Neste caso estamos deletando o range selecionado, movendo para cima a linha.

Sub Del_Selecao()

    Dim i
    
    i = ActiveCell.Row
    
    Range("K" & i & ":P" & i).Select
    Selection.Delete Shift:=xlUp

End Sub

[]s

Excelente!! Entendeu o que queria!!

Grato mais uma vez!!