Pessoal,

Sou novo no forúm e estou com uma dúvida que deve ser bem simples para muitos de vocês.
Estou criando uma planilha que precisa selecionar uma amostra aleatório de 25 valores, em uma base que muda todo mês.
Consegui, com ajuda do google e outros foruns, montar uma macrinho para gerar números aleatórios e linkalos com texto.
Ótimo!
O problema é que tenho sempre que definir o número de linhas que minha base tem...
queria que a macro calcula-se isso =/
isso é possível?

Dim i                           As Integer
Dim j                           As Integer
Dim bRandomOk                   As Boolean
Dim valor_aleatorio             As Integer
Dim valor_maior                 As Integer
Dim total_numeros_gerados       As Integer
Dim total_numeros_para_gerar    As Integer
Dim iControleGerar              As Integer
Dim iColunaCelula               As Integer


    valor_maior = 60                   'Informa maior número a ser gerado ------- [b]ESSE CARA DEVERIA SER CALCULADO SOZINHO - Se for maior que 60, deveria aparecer o total. Se for menor que 25, por exemplo, 15, deveria aparecer 15 e alterar a linha abaixo, já que não haveria 25 amostras e sim 15!!![/b]
    [b]total_numeros_para_gerar = 25      'Informe a quantidade de números aleatórios que deseja gerar[/b]
    total_numeros_gerados = 0
    iLinhaCelulaInicial = 3            'Informe a linha da primeira célula que será escrito o número
    iColunaCelula = 14                 'Informe a coluna. Exemplo: Coluna B = 2
    iControleGerar = total_numeros_para_gerar + iLinhaCelulaInicial - 1

    'Gera quantos números forem indicados na variável 'total_numeros_gerados'
    For i = iLinhaCelulaInicial To iControleGerar
        total_numeros_gerados = total_numeros_gerados + 1

        'Fica executando a geração de um novo número enquanto houver duplicidade
        Do
            'Utilize a condição abaixo para verificar se ainda existem números possíveis a serem gerados
            'Porque se i for maior que o valor limite, significa que todos os números já saíram. Então, sai do loop
            If valor_maior < total_numeros_gerados Then
                valor_aleatorio = 0
                bRandomOk = True
                Exit Do
            End If

            'Gera um novo número
            Randomize   'Sempre utilize esta função antes de chamar Rnd
            valor_aleatorio = Int((valor_maior * Rnd) + 1)
            bRandomOk = True

            'Verifica se já saiu este número
            For j = iLinhaCelulaInicial To i
                If Cells(j, iColunaCelula).Value = valor_aleatorio Then
                    bRandomOk = False
                    Exit For
                End If
            Next j

        Loop While bRandomOk = False

        'Escreve o número na célula
        Cells(i, iColunaCelula).Value = valor_aleatorio
    Next i

   
    'Teste para ver se números foram gerados corretamente sem repetição
    
    Range("M3").Select
    ActiveCell.FormulaR1C1 = _
        "=IF(COUNTIF(R3C14:R30C14,RC[1])>1,""REPETIDO"",""NÃO REPETIDO"")"


    'Fórmulas 

    Range("O3").Select
    ActiveCell.FormulaR1C1 = "=VLOOKUP(RC14,C1:C6,3,0)"
    Range("P3").Select
    ActiveCell.FormulaR1C1 = "=VLOOKUP(RC14,C1:C6,2,0)"
    Range("Q3").Select
    ActiveCell.FormulaR1C1 = "=VLOOKUP(RC14,C1:C6,6,0)"
    Range("M3").Select

    Selection.AutoFill Destination:=Range("M3:M27")             -[b]Aqui deveria colocar autofill do primeiro para o lastrow, mas nao ta rolando[/b]
    Range("M3:M27").Select
    Range("O3:Q3").Select
    Selection.AutoFill Destination:=Range("O3:Q27")             -[b]Aqui deveria colocar autofill do primeiro para o lastrow, mas nao ta rolando[/b] 
    Range("O3:Q27").Selec

t

Bom, Obrigado pela força!