Pode ser através de Macros?

Enson,

Claro!

Obrigado e abs!!

Veja se é isso, adaptado aos seus intervalos:

Private Sub Worksheet_Change(ByVal Target As Range)

Range("A2:D1000").ClearContents 'Limpa os registros

If Target.Address <> Range("E1").Address Then
Exit Sub 'Só executa a Macro se o valor for digitado em E1
Else
Application.EnableEvents = False
q = Target.Value 'Últimos x dados
j = Sheets("Plan1").Range("A65536").End(xlUp).Row 'Total de dados
i = j - q + 1 'Primeiro registro dos últimos x dados
Sheets("Plan1").Range("A" & i & ":D" & j).Copy 'Copia dados das colunas A a D da Plan1
Range("A2").Select
ActiveSheet.Paste 'Cola a partir de A2
Application.CutCopyMode = False
End If

Application.EnableEvents = True

End Sub

Edson!
Muito Obrigado msm! Consegui aqui!
Qualquer coisa entro em contato!
abracos!!