Estou tentando fazer uma varredura no excel, pegando valores de uma base e colocando na planilha relatório. Já tentei 2 tipos diferentes de código e tenho os erros:
Sub Botão8_Clique()
Dim i As Integer, j As Byte
j = 18
With BASE
For i = 5 To 500
If .Range("A", i) = RELATÓRIO.Range("A2") Then <<<<<<<< ERRO: erro em tempo de execução 1004 / O método 'Range' do objeto Worksheets falhou
RELATÓRIO.Range("D", j) = .Range("C", i)
j = j + 1
End If
Next i
End With
End Sub

OU

Sub Botão2_Clique()
Coluna_Projeto = 4
Linha_Projeto = 2
L_Projeto = 5
L_SKU = 18
While Worksheets("BASE").Cells(L_Projeto, 1) <> "" <<<<<<<<<< ERRO: erro em tempo de execução 9: subscrito fora do intervalo
If Worksheets("BASE").Cells(L_Projeto, 1) = _
Worksheets("RELATÓRIO").Cells(Linha_Projeto, 1) Then
Worksheets("RELATÓRIO").Cells(L_SKU, Coluna_Projeto) = _
Worksheets("BASE").Cells(L_Projeto, 3)
L_SKU = L_SKU + 1
End If
L_Projeto = L_Projeto + 1
Wend
End Sub

Alguem pode me ajudar?

Obrigada,

Natália