VBA totales en cantidad de filas variables y cantidad de columnas variables

... el siguiente codigo para contar cantidades en una tabla que tenia... n filas y 15 columnas fijas
las 3 primeras eran referencias y las 12 siguientes eran los meses del año...

With Range("a65536").End(xlUp)
.Offset(1) = "Cantidad Clientes por Mes"
With .Offset(1, 3)
.Formula = "=COUNTA(d12:d" & .Row - 1 & ")"
.AutoFill .Resize(, 12), xlFillDefault
End With
End With

Ahora necesito... calcular totales en tablas que tienen 2 columnas de referencias y a la derecha n columnas.
Pueden ser 2, 3 o 4 columnas de valores para contar y sacar el total abajo. Las tablas siempre empiezan en la celda B11.
... modificar el codigo anterior para que tome n columnas en lugar de 12.

hola, diana !

no estoy seguro de si la fila 11 se debe incluir en la formula (modifica
de ser necesario)...
prueba con la siguiente adaptacion al codigo anterior...

Dim Cols As Byte
With Range("b65536").End(xlUp)
Cols = .CurrentRegion.Columns.Count
.Offset(1) = "Cantidad Clientes por Mes"
With .Offset(1, 2)
.Formula = "=counta(d11:d" & .Row - 1 & ")"
.AutoFill .Resize(, Cols - 2), xlFillDefault
End With
End With

si cualquier duda (o informacion adicional)... comentas ?
saludos,
hector.

__ OP __

... el siguiente codigo para contar cantidades en una tabla que tenia...
n filas y 15 columnas fijas
las 3 primeras eran referencias y las 12 siguientes eran los meses del
año...

With Range("a65536").End(xlUp)
.Offset(1) = "Cantidad Clientes por Mes"
With .Offset(1, 3)
.Formula = "=COUNTA(d12:d" & .Row - 1 & ")"
.AutoFill .Resize(, 12), xlFillDefault
End With
End With

Ahora necesito... calcular totales en tablas que tienen 2 columnas de
referencias y a la derecha n columnas.
Pueden ser 2, 3 o 4 columnas de valores para contar y sacar el total
abajo. Las tablas siempre empiezan en la celda B11.
... modificar el codigo anterior para que tome n columnas en lugar de 12.