将变量设置为范围

Question

我试图使用变量存储范围，但是我得到“方法范围全局失败”或者它们保持为空。谁能帮我？这两个变量是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")