Macro copiar formulas si cumple una condición

Saludos estimados expertos,
Agradeceré su ayuda, tengo datos desde la columna “A” hasta la “M”, el número de filas es variable, pudiendo contener datos desde la fila 40 hasta 24000. En la fila “C5:M5”
tengo formulas, las cuales a través de una macro necesito que se copien a partir de las columnas C6:M6 siempre y cuando el dato de la misma fila en la columna "A" sea mayor a 1

es decir hasta la ultima fila de la columna "A" que contenga datos

E realizado una macro con Selection.AutoFill Destination Pero como
pueden ver el final me lo termina poniendo como constante y no como variable
Range("C5").Select
ActiveCell.FormulaR1C1 = _
"=IF(RC1>0,(INDEX(BBDD!R5C1:R5000C27,MATCH(RC1,BBDD!R5C1:R5000C1,0),16)),"""")"
Range("D5").Select
ActiveCell.FormulaR1C1 = _
"=IF(RC1>0,(INDEX(BBDD!R5C1:R5000C27,MATCH(RC1,BBDD!R5C1:R5000C1,0),6)),"""")"

.....

Selection.AutoFill Destination:=Range("C5:M5000")
Range("C5:M5000").Select