Esse primeiro método me da um ERRO 400 Worksheets("RELAT").Range(Cells(i, 3), Cells(i + 1, 12)).Value = Worksheets(mes).Range("P5:Y6").Value Esse segundo método funciona normalmente Worksheets("RELAT").Range("C7:L8").Value = Worksheets(mes).Range("P5:Y6").Value O Primeiro e o segundo método não são as mesmas coisas ? O que tem de errado ? Código completo: Sub atualizar_Relatorio() Dim i As Integer Dim j As Integer Dim mes As String j = 1 For i = 7 To 30 Step 2 mes = ActiveSheet.Cells(i, j).Value 'pegando o mês na planilha MsgBox (mes & " " & i) 'testando o nome do mês na msgbox, código roda normalmente até aqui Worksheets("RELAT").Range(Cells(i, 3), Cells(i + 1, 12)).Value = Worksheets(mes).Range("P5:Y6").Value 'este não funciona Worksheets("RELAT").Range("C7:L8").Value = Worksheets(mes).Range("P5:Y6").Value 'este funciona Next i End Sub Resumo do código: Estou pegando um range (valores) de uma planilha (a qual pego o nome (mês) na planilha `"RELAT"` usando o `for`) e estou copiando os valores desta em outra planilha usando a referência por células, para que eu possa fazer a alteração de linha na planilha `"RELAT"` para que os dados não sejam substituídos, porém o Excel me mostra um Erro 400. Substitui o `for` pelo seguinte código, porém queria reduzir usando o `for` Código que estou usando e está funcionando: Sub atualizar_Relatorio() Worksheets("RELATÓRIO").Activate Worksheets("RELAT").Range("C7:L8").Value = Worksheets("JANEIRO").Range("P5:Y6").Value Worksheets("RELAT").Range("C9:L10").Value = Worksheets("FEVEREIRO").Range("P5:Y6").Value Worksheets("RELAT").Range("C11:L12").Value = Worksheets("MARÇO").Range("P5:Y6").Value Worksheets("RELAT").Range("C13:L14").Value = Worksheets("ABRIL").Range("P5:Y6").Value Worksheets("RELAT").Range("C15:L16").Value = Worksheets("MAIO").Range("P5:Y6").Value Worksheets("RELAT").Range("C17:L18").Value = Worksheets("JUNHO").Range("P5:Y6").Value Worksheets("RELAT").Range("C19:L20").Value = Worksheets("JULHO").Range("P5:Y6").Value Worksheets("RELAT").Range("C21:L22").Value = Worksheets("AGOSTO").Range("P5:Y6").Value Worksheets("RELAT").Range("C23:L24").Value = Worksheets("SETEMBRO").Range("P5:Y6").Value Worksheets("RELAT").Range("C25:L26").Value = Worksheets("OUTUBRO").Range("P5:Y6").Value Worksheets("RELAT").Range("C27:L28").Value = Worksheets("NOVEMBRO").Range("P5:Y6").Value Worksheets("RELAT").Range("C29:L30").Value = Worksheets("DEZEMBRO").Range("P5:Y6").Value End Sub