オートフィルタの結果に対して処理

ws.Range("A2").AutoFilter Field:=3, Criteria1:="誕生"
For Each r In ws.AutoFilter.Range.SpecialCells(xlCellTypeVisible)
    If r.Row > 2 And r.Column = 4 Then
        'オートフィルタ範囲の可視セルで2行目以降のD列だけ処理
    End If
Next

無理やりです。出来ればヨシ！

以上。