Necesito guardar en una variable el contenido de una celda de exel con macro

el problema es el siguiente:

la celda no la tengo definida por que tengo que buscar un valor.

pero paso a detallar el programita para que vean los detalles y aprender a ver cual es el error

sub CalculadorDePromedioPorDia Macro

' calcula el total que se hace por día

'se le asigna por cada numero un día

dim día (1 to 7) as String

día(1) = "domingo"

día(2)= "lunes"

día(3)= "martes"

día (4) = "miércoles"

día (5) = "jueves"

día (6) = " viernes"

día(7) = "sábado"

dim buscar as String

' variable para que el mientras tenga una salida

salida = int(0)

'variable de coordenada

dim (pongo una equis pero me salta el por solo acá xD) POR as long

dim fila as long

dim columna as long

columna = 7

dim acumulador as long

'ciclo de búsqueda por día

for a = 1 to 7

salida = 0

por = 0

fila = 1

while salida <= 10

acumulador = 0

' acá me salta el error

cells(0,0).select

' búsqueda de valor de vta correspondiente acá en el if también salta error

if día(a) = cells(por,0) then

' esto no se si esta bien

acumulador = acumulador + cells(por,3)

end if

buscar = cells(por,0).value

'esto trata de finalizar el mientras

if buscar = "" then

salida = salida + 1

else

salida = 0

end if

' avanza fila

por = por + 1

wend

' asigna a la celda el resultado de un día

cells(1, columna) = acumulador

' cambia de columna para guardar en otro día

columna = columna + 1

next

end sub

espero que puedan ayudarme y desde ya muchas gracias