Dejar abierto el rango de "autofill" en una macro

Esto les puede ayudar a determinar el rango que les esta variando en el autofill observen que el Autofill esta definido por 2 partes, la 1ra que va desde selection hasta (doble punto ":") hay se define la celda donde esta la fórmula y la segunda es el recorrido o largo de la columna o fila, en su caso columna.

Les sugiero, borren ". select" y "selection." quedando de esta forma; "Range("C3").AutoFill Destination:Range("C3").AutoFill Destination:" (ok con esto la primera parte)

Resolvamos la segunda que es la que les esta dando dolores de cabeza =Range("C3:C" & Range("B" & Rows.Count).End(xlUp).Row), aqui lo unico que hicimos fue colocarle un contador de celdas definidos por esta instrucción "("B" & Rows.Count).End(xlUp).Row.End(xlUp).Row" le coloque la columna "B", porque presumo que es la columna que se quiere emparejar, donde esta la B pueden colocar la letra de la columna que quieran, pero tomen en cuenta que es la que les va a definir el largo de la ecuación, en resumido la instruccion completa queda así;

Range("C3").AutoFill Destination:=Range("C3:C" & Range("B" & Rows.Count).End(xlUp).Row)

Espero le sirva y perdonen lo largo de la explicación.

Yo tengo un caso similar como arreglaron lo variable numérica

'Dim fila As String
'Range("E2").End(xlDown).Select
'lista = Selection.Cells(1, 1).Address
Rows("2:2").Select
Selection.AutoFilter
Columns("D:D").Select
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Columns("G:G").Select
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Columns("H:H").Select
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Columns("P:P").Select
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Range("D3").Select
ActiveCell.FormulaR1C1 = "=RIGHT(RC[-1],3)"
Range("D3").Select
'Selection.AutoFill Destination:=Range("D3" & ":" & "D" & fila)
Selection.AutoFill Destination:=Range("D3:D13816")
Range("D3:D13816").Select
Range("G3").Select
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-3],base.xlsm!cc,4,0)"
Range("G3").Select
Selection.AutoFill Destination:=Range("G3:G13816")
Range("G3:G13816").Select
Range("H3").Select
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-6],base.xlsm!cuentas,8,0)"
Range("H3").Select
Selection.AutoFill Destination:=Range("H3:H13816")
Range("H3:H13816").Select
Range("P3").Select
ActiveCell.FormulaR1C1 = "=DATEDIF(RC[-1],TODAY(),""d"")"
Range("P3").Select
Selection.AutoFill Destination:=Range("P3:P13816")
Range("P3:P13816").Select