Supondo que está se referindo a Coluna A, se não for é só ajustar a rotina :

Sub Scroll_Rows()
    Dim LastRow As Long
        
    LastRow = Sheets("Plan1").Cells(Rows.Count, "A").End(xlUp).Row - 5
    ActiveWindow.ScrollRow = LastRow
    ActiveSheet.Range("A" & LastRow + 6).Select
        
End Sub

[]s

Olá Mauro Coutinho

Cara, valeu, era exatamente o que precisava

Só uma coisa, notei que você escolheu para deixar como ActiveSheet, uma única célula

Tem como eu escolher por deixar selecionada, por exemplo, as últimas 5 células e na Planilha 2, A1, mostrar a soma dessas 5 células? No qual, o resultado, irá mudar conforme a planilha vai sendo preenchida, e é isso mesmo que eu quero

Obrigado

Anexo

Fala klarc28, beleza?

Isso mesmo que precisava, obrigado!

Na minha cabeça, achei que era necessário marcar as células que eu queria fazer os cálculos na Plan1 do Excel pra sair o resultado na Plan2
Entendi que apenas necessito do código que faz a somatória na Plan2, então enxuguei um pouco seu código e deu certo (abaixo como deixei)

É possível fazer o mesmo colocando a média também em Plan2 B1?

Tentei aqui mas não consegui

Obrigado

Sub Scroll_Rows()
    Dim i As Long
    Dim soma As Double
    For i = Sheets("Plan1").Cells(Rows.Count, "A").End(xlUp).Row - 5 To Sheets("Plan1").Cells(Rows.Count, "A").End(xlUp).Row 'Faz aparecer a soma na Planilha 2
        
        soma = soma + Plan1.Range("A" & i).Value
        
    Next i
    Plan2.Range("A1").Value = soma
End Sub

Sub Scroll_Rows()
    Dim i As Long
    Dim soma As Double
    For i = Sheets("Plan1").Cells(Rows.Count, "A").End(xlUp).Row - 5 To Sheets("Plan1").Cells(Rows.Count, "A").End(xlUp).Row 'Faz aparecer a soma na Planilha 2
        
        soma = soma + Plan1.Range("A" & i).Value
        
    Next i
        Plan2.Range("A1").Value = soma

    Plan2.Range("B1").Value = soma / 5
End Sub

Klarc28 Obrigado! Tópico resolvido!