Detalhes de vba formulas loop ultima celula retorna valor maximo minimo

Saberexcel - o site das macros
Essa macro do Aplicativo Microsoft Excel VBA, verifica todos os valores digitados,
localiza a última célula e insere o valor Máximo, desloca mais uma linha e insere
o valor mínimo da coluna(A)

Sub Valor_Maximo_Minimo()
Dim i As Single

i = 1

Do While Cells(i, 1) <> "" 'Retorna a posição da linha da primeira célula
i = i + 1 ' na coluna "A" vazia
Loop

Cells(i, 1).Select
ActiveCell.FormulaR1C1 = "=MAX(R[-" & i - 1 & "]C:R[-1]C)" 'Inseri a fórmula
Cells(i, 1).Select

Cells(i + 1, 1).Select
ActiveCell.FormulaR1C1 = "=MIN(R[-" & i - 1 & "]C:R[-1]C)"

End Sub


Aprenda Microsoft Excel VBA --(SaberExcel))--


: