excel - 変数を範囲に設定する

Question

変数を使用して範囲を保存しようとしていますが、「メソッド範囲グローバルに失敗しました」というメッセージが表示されるか、変数が空のままです。誰でも私を助けることができますか？2 つの変数は UltimaAmostra e CabecarioIsotopos です。

Sub MediaBCOGJbrutos()

    Dim Amostra As String 'Variável com o endereço da amostra
    Dim n As Long 'Variável que controlará a linha onde se encontra o endereço da amostra a ser aberta


    Dim EnderecoAmostras As Range 'Intervalo da planilha com o endereço dos arquivos de cada amostra
    Dim UltimaAmostra As Range 'Célula correspondente à ultima amostra
    Dim CabecarioIsotopos As Range 'Intervalo dentro de cada planilha .dynamic.exp onde se encontram os cabeçários da colunas

    Workbooks("Recuperar (simplificada)").Sheets("DadosProcessados").Activate

            n = 2

           Set EnderecoAmostras = Range("B2", "B" & Range("B2").End(xlDown).Row)


1    With EnderecoAmostras 'O número 1 à esquerda é uma referência para a macro seja executada a partir daqui sob certas condições
        For n = 2 To .Rows.Count
            Amostra = Cells(n, 2)
            Workbooks.Open Filename:=Amostra
        n = n + 1

        Set CabecarioIsotopos = Range("A15:U15")