Corregir una macro con Autofill

[Roshiroy]

Que tal foro, tengo una macro

Hoja1.Select



Application.ScreenUpdating = False

With Hoja1

        .Range("A10:C10").EntireColumn.Insert

        .Range("A11").Formula = "=D11&E11&F11&G11"

        .Range("B11").Formula = "=L11&M11&N11&O11"

        .Range("C11").Formula = "=COUNTIF(A$11:A$250,B11)"

        .Range("A11:C11").AutoFill Destination:=Range("A11:C250")

        .Range("$C$10:$G$250").AutoFilter Field:=1, Criteria1:="0"

        .Range("D11:G250").Copy Hoja2.Range("A500").End(xlUp).Offset(1, 0)

        .Range("C10").AutoFilter

        .Range("A1:C1").EntireColumn.Delete

    End With

    Application.ScreenUpdating = False

Hoja2.Select


[/CODE]

en esta parte del codigo

[CODE]
.Range("C11").Formula = "=COUNTIF(A$11:A$250,B11)"
[/CODE]

Como puedo hacer para que en el punto A$250 en ves de que sea 250 que me tome todo lo que tiene datos porque no me deja hacer el procesar datos exactos

de ante mano gracias

[Roshiroy]

O que en la columna A después de poner el resto de los datos que los vacíos se rellenen con algún número

[alicenancy]

Hola Gente estoy intentando llevar un libro de productos solicitados por médicos y necesito de su ayuda quiero copiar todo lo que escriba en los campos de color en la hoja historial médico, la macro que realice la hice con la grabadora y no puedo hacer que funcione bien. Y despues necesitaria que otra macro me permita obtener un informe con todos los datos dependiendo del medico. Desde ya muchas gracias

[Roshiroy]

Hola Gente estoy intentando llevar un libro de productos solicitados por médicos

Que tal buen día necesitarias hacer subir un ejemplo y abrir el tema para que te puedan ayudar

saludos desde México