Excel - Otra Optimizacion

Buenas tardes al foro Me gustaria que alguien me ayudara con esto
quiero optimizar con un for ... end for u otra opcion no se:

tengo algo asi........

Supongo que tengo que concatenar para optimizar pero ?????


DirDat = [d8].Value

renglon = Range("E22").Row
Select Case renglon
Case Is = 8
DirDat = [d8].Value
Case Is = 9
DirDat = [d9].Value
Case Is = 10
DirDat = [d10].Value
Case Is = 11
DirDat = [d11].Value
Case Is = 12
DirDat = [d12].Value
Case Is = 13
DirDat = [d13].Value
Case Is = 14
DirDat = [d14].Value
Case Is = 15
DirDat = [d15].Value
Case Is = 16
DirDat = [d16].Value
Case Is = 17
DirDat = [d17].Value
Case Is = 18
DirDat = [d18].Value
Case Is = 19
DirDat = [d19].Value
Case Is = 20
DirDat = [d20].Value
Case Is = 21
DirDat = [d21].Value
Case Is = 22
DirDat = [d22].Value
End Select

Saludos..........

DirDat = Range("D" & renglon).Value

Saludos desde Baires, JuanC

De nuevo otra vez muchisimas gracias por las respuestas.........