работа с масивами

[vlgolu]

есть некий макрос, реально ли его описать с помощью функций массивов?
если можно, то напишите пожалуйста, как это проще реализовать...
заранее спасибо

Sub 
Sheets("Исходные_данные").Visible = True
Sheets("Таблица").Visible = True
Sheets("Исходные_данные").Select
    If Range("d15") = "I" Then
Sheets("Таблица").Select
Range("A3:O57").Select
Selection.AutoFilter Field:=1, Criteria1:="I"
Sheets("Исходные_данные").Select
    ElseIf Sheets("Исходные_данные").Range("d15").Value = "II" Then
Sheets("Таблица").Select
Range("A3:O57").Select
Selection.AutoFilter Field:=1, Criteria1:="II"
    ElseIf Sheets("Исходные_данные").Range("d15").Value = "III" Then
Sheets("Таблица").Select
Range("A3:O57").Select
Selection.AutoFilter Field:=1, Criteria1:="III"
    ElseIf Sheets("Исходные_данные").Range("d15").Value = "IV" Then
Sheets("Таблица").Select
Range("A3:O57").Select
Selection.AutoFilter Field:=1, Criteria1:="IV"
    ElseIf Sheets("Исходные_данные").Range("d15").Value = "V" Then
Sheets("Таблица").Select
Range("A3:O57").Select
Selection.AutoFilter Field:=1, Criteria1:="V"
    ElseIf Sheets("Исходные_данные").Range("d15").Value = "VI" Then
Sheets("Таблица").Select
Range("A3:O57").Select
Selection.AutoFilter Field:=1, Criteria1:="VI"
    ElseIf Sheets("Исходные_данные").Range("d15").Value = "VII" Then
Sheets("Таблица").Select
Range("A3:O57").Select
Selection.AutoFilter Field:=1, Criteria1:="VII"
End If