Rodar vba apenas no que está filtrado

Galera, estou precisando de um ajuda para rodar um codigo apenas do q esta filtrado. Tentei fazer algumas modificacoes no codigo original mas nao estou conseguindo, segue abaixo o original feito pelo colega Alexandre Neves do forum:

Sub ActualizaPrazos()
'criada por Alexandre Neves www.esnips.com\web\alexandreneves
'em 2012-10-27
'para gustavovon
'do fórum MaximoAccess
Dim Rst As DAO.Recordset
Set Rst = CurrentDb.OpenRecordset("Table1")
Do While Not Rst.EOF
Rst.Edit
Select Case Rst("Status")
Case "Aguard. PRAZO RECURSAL"
If DateDiff("d", Rst("Ultima Alteração"), Date) > 30 Then Rst("Prazo") = "Vencido"
Case "AGUARD. PRAZO ESPECIAL"
If DateDiff("d", Rst("Ultima Alteração"), Date) > 15 Then Rst("Prazo") = "Vencido"
Case "EM PROC. DE INSCRIÇÃO EM D.A."
If DateDiff("d", Rst("Ultima Alteração"), Date) > 45 Then Rst("Prazo") = "Vencido"
Case "AGUARD. PRAZO AJUR"
If DateDiff("d", Rst("Ultima Alteração"), Date) > 120 Then Rst("Prazo") = "Vencido"
Case Else
If IsNull(Rst("Ultima Alteração")) Then
Rst("Prazo") = "S/ PRAZO"
ElseIf IsDate(Rst("Ultima Alteração")) Then
If DateDiff("d", Rst("Ultima Alteração"), Date) > 360 Then
Rst("Prazo") = "360 dias"
ElseIf DateDiff("d", Rst("Ultima Alteração"), Date) > 330 Then
Rst("Prazo") = "330 dias"
ElseIf DateDiff("d", Rst("Ultima Alteração"), Date) > 300 Then
Rst("Prazo") = "300 dias"
ElseIf DateDiff("d", Rst("Ultima Alteração"), Date) > 270 Then
Rst("Prazo") = "270 dias"
ElseIf DateDiff("d", Rst("Ultima Alteração"), Date) > 240 Then
Rst("Prazo") = "240 dias"
ElseIf DateDiff("d", Rst("Ultima Alteração"), Date) > 210 Then
Rst("Prazo") = "210 dias"
ElseIf DateDiff("d", Rst("Ultima Alteração"), Date) > 180 Then
Rst("Prazo") = "180 dias"
ElseIf DateDiff("d", Rst("Ultima Alteração"), Date) > 150 Then
Rst("Prazo") = "150 dias"
ElseIf DateDiff("d", Rst("Ultima Alteração"), Date) > 120 Then
Rst("Prazo") = "120 dias"
ElseIf DateDiff("d", Rst("Ultima Alteração"), Date) > 90 Then
Rst("Prazo") = "90 dias"
ElseIf DateDiff("d", Rst("Ultima Alteração"), Date) > 60 Then
Rst("Prazo") = "60 dias"
ElseIf DateDiff("d", Rst("Ultima Alteração"), Date) > 45 Then
Rst("Prazo") = "45 dias"
ElseIf DateDiff("d", Rst("Ultima Alteração"), Date) > 30 Then
Rst("Prazo") = "30 dias"
ElseIf DateDiff("d", Rst("Ultima Alteração"), Date) > 15 Then
Rst("Prazo") = "15 dias"
End If
End If
End Select
Rst.Update
Rst.MoveNext
Loop
Set Rst = Nothing
End Sub

Oque preciso é que esse codigo rode apenas no q foi filtrado em um subformulario, Nz(Me!sfrmPedidos.Form.Filter, "") mas nao estou conseguindo fazer essa adaptacao funcionar e gravar minha tabela (table1). Alguem poderia dar uma luz ?

Abs

Boa tarde,
A origem dos dados está na tabela "Table1". Coloque o filtro para o que pretende
Set Rst = CurrentDb.OpenRecordset("Table1")

Fala Alexandre !! Vou agraceder mais um vez por sua ajuda. Esse codigo me ajudou bastante !

Entao, eu tinha feito essa modificação q vc falou:
Set Rst = CurrentDb.OpenRecordset(Me!sfrmPedidos.Form.Filter, "")
O filtro é feito nesse subform, preciso q apenas os dados q estao filtrados por ele sejam alterados na "table1"

Bom dia,
Tem de colocar, na origem do rercordset, a origem dos registos do subform

Alexandre, tentei varias opcoes mas nao funciona de jeito nenhum.

Set rst = CurrentDb.OpenRecordset("Table1", Forms!Frmadministrador.Me!frmpedidos.Form.Filter, "")

A origem dos dados do subform é o frmadministrador. Coloquei apontando direto pra ele mas tb nao funcionou. Se puder continuar me orientando, te agradeço.

Abs

Estou tentando tb deixar a funcao do jeito q esta e tentar mandar o conteudo ja filtrado atraves do botao q esta dentro do form. mas tb nao funcionou ...

Private Sub Comando270_Click()
Call ActualizaPrazos ("sfrmpedidos", Nz(Me!sfrmPedidos.Form.Filter, ""))
End Sub

Bom dia,
A origem dos dados tem de ser uma tabela ou consulta. Veja na origem dos dados do formulário

Alexandre, ta dificil ...

Tenho tentado tanto no botao do form ( para enviar filtrado) como direto pelo vba. Qual seria o correto ? Pelo botao do form, nao preciso fazer referencia a ele, apenas cito o subform. Estou achando que a funcao nao identificar o filtro usado no subform. A ultima q tentei foi essa:

Set rst = CurrentDb.OpenRecordset("table1", Nz(Form!frmadministrador.Me!sfrmPedidos.Form.Filter, ""))

Nela eu faço referencia a minha origem (table1) e cito o filtro do subform (adicionando que o subform esta no form "frmadministrador")

O filtro não é isso. O filtro será "campo condição valor"