Como posso usar várias células no método range no vba

Estou tentando configurar dois intervalo no método de células. Estou tentando selecionar E e G, então eu estava usando.

  ActiveSheet.Range ("D" & ActiveCell.Row & ":G" & ActiveCell.Row) 

Continuou recebendo um erro. Existe alguma outra maneira de fazê-lo.

Você deve usar Set :

Sub dural()
    Dim rng As Range
    Set rng = ActiveSheet.Range("D" & ActiveCell.Row & ":G" & ActiveCell.Row)
    MsgBox rng.Address
End Sub