AutoFill desde celda activa en excel

Espero continúes bien

Oportunamente me indicaste como colocar una fórmula en la celda inmediatamente inferior a la que contiene la fecha de hoy (copio el código)

Sheets("Hoja1").Select
Dim col As Range
Set col = Rows(5).Find(Date, , xlFormulas, xlWhole)
If Not col Is Nothing Then
col.Offset(1).Select
End If
'----------------------------COLOCAR LA FÓRMULA EN LA CELDA ACTIVA-----------------------------
ActiveCell.FormulaR1C1 = _
"=IF(R[-1]C='utiliz x art'!R1C3,'utiliz x art'!R4C3+IFERROR(AVERAGEIF('S.....etc etc

Ahora se me presenta un dilema que si bien parece simple, no se manejar con la nomenclatura de ActiveCell...

PREGUNTA: ¿Teniendo la fórmula en la celda activa (x ej: TG6), como puedo copiarla a lo largo de toda la fila 6 desde TH6 hasta ABE6? ¿Qué le agregarías al esa porción de código para que resuelva esto?