Copiar e Colar Rodando em todas as Colunas (VBA)

Bom dia! Boa Tarde! Boa Noite!

Preciso fazer com que essa rotina rode em todas as linhas das colunas citadas, e não somente na linha 4, alguém poderia me ajudar?

Private Sub Worksheet_Change(ByVal Alvo As Range)

If Not Intersect(Alvo, Range(“H4,J4:P4,R4”)) Is Nothing Then
Me.Unprotect “2”
Range(“C4”).Select
Selection.Copy
Range(“D4”).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Me.Protect “2”
End If
End Sub

Desde já muito obrigado pela ajuda!!!