Consulta sobre código en VBA

Este es un pequeño ejemplo donde multiplica columna A X Columna B
Range("C2").Select
ActiveCell.FormulaR1C1 = "=RC[-2]*RC[-1]"
Range("C2").Select
Selection.Copy
Range("C3:C65536").Select
ActiveSheet.Paste
Range("B65536").Select
Selection.End(xlUp).Select
Range(Selection.Offset(1, 0), Cells(Rows.Count, 1)).EntireRow.Delete
Application.CutCopyMode = False

Fernando

"Dario" wrote in message
news:007d01c48ad1$5f2eb130$
Necesito que me ayuden a escribir el código para una macro
que me permita lo siguiente:

Tengo datos en la columna A y en la columna B, necesito
poner una fórmula en la columna C y copiarla hacia abajo
hasta donde la columna B no tenga datos. (O sea que me
debería establecer un rango de pegado en base a la
cantidad de celdas ocupadas en B)

Otra (espero no abusar):
Necesito una macro que me determine el rnago de una tabla
y le dé cierto formato a la primera fila y a la última,
como así tambien a las celdas interiores.

Me imagino que los temas estarán relacionados.

Espero me puedan ayudar.

Desede ya muchas gracias por su atención

Darío.Salta.Argentina

hola, Dario !

... escribir el codigo ... que me permita lo siguiente:
... poner una formula en la columna C
... copiarla hacia abajo hasta donde la columna B no tenga datos
... que me determine el rango de una tabla y le de cierto formato [...]

suponiendo que...
-> los tres pasos 'aplican' al mismo rango...
-> el rango de datos 'inicia' en la fila 2 [la fila 1 serian los 'titulos']
-> la formula que 'necesitas' es ??? =>cambiala por la 'real'<[consulta en la ayuda de vba por otras opciones de 'AutoFormat']
en un modulo de codigo 'normal' ==Sub CopiarSegunRangoBconFormato()
[c2].Formula = "¢*b2"
Range([c2], [b65536].End(xlUp).Offset(, 1)).FillDown
[c2].CurrentRegion.AutoFormat xlRangeAutoFormatColor2
End Sub

saludos,
hector.