Guru do Excel e Power BI

Boa tarde galera,
Tenho esse código que serve para Gravar e Editar os dados na Planilha.

Essa parte do código pinta somente a primeira célula da linha, preciso ajustar para pintar o intervalo de 22 colunas na mesma linha.
ws.Cells(iRow, 1).Interior.Color = &H8080FF

Alguém pode me ajudar? Agradeço.


'Função Inserir ou Alterar
Dim iRow As Long
Dim ws As Worksheet
Set ws = Worksheets("RELATORIO")

Worksheets("RELATORIO").Select
Range("A2").Select
While ActiveCell <> ""
If CbbId.Text = ActiveCell Then
'Se o nome já existir, faz a pergunta abaixo. Se não, passa direto.
If MsgBox("Cadatro localizado. Deseja fazer alteração?", vbQuestion + vbYesNo, "Pergunta") = vbYes Then
GoTo continue 'Função para Inserir e/ou Alterar
Else 'Se na Pergunta clicar em NÃO, limpa e encerra.

Exit Sub
End If
End If
ActiveCell.Offset(1, 0).Activate
Wend

continue:
iRow = ActiveCell.Row
'Inserir e/ou Alterar
On Error Resume Next
ws.Cells(iRow, 1).Value = Me.CbbId.Value
ws.Cells(iRow, 1).Interior.Color = &H8080FF

Olá, Milton.

Experimente:

ws.Cells(iRow, 1).Resize(, 22).Interior.Color = &H8080FF

Olá Osvaldo,

Deu certo.
Obrigado!!!!