Tengo el siguiente codigo que me calcula el Iva,
me gustaria de ayudaran a modificarlo para que funcionara solo en la
columna A

Sub calcularIva()

On Error GoTo control

Dim Neto As Double
Dim Iva As Double

Neto = activecell.Value
Iva = Format(Iva, "###,###.00")
Iva = activecell.Value * 0.15
activecell.NumberFormat = "#,##0.00"
activecell.Offset(0, 1).NumberFormat = "#,##0.00"

activecell.Offset(0, 1).Value = Iva

control:
End Sub

hola, jose !

> Tengo el siguiente codigo que me calcula el Iva,
> me gustaria de ayudaran a modificarlo para que funcionara solo en la columna A

(p.e.)
Sub CalcularIVA()
With ActiveCell
If .Column > 1 Then Exit Sub
.Offset(, 1) = Val(.Value) * 0.15
.Offset(, 1).NumberFormat = "#,##0.00")
End With
End Sub

saludos,
hector.

__ el codigo expuesto __
> Sub calcularIva()
> On Error GoTo control
> Dim Neto As Double
> Dim Iva As Double
> Neto = activecell.Value
> Iva = Format(Iva, "###,###.00")
> Iva = activecell.Value * 0.15
> activecell.NumberFormat = "#,##0.00"
> activecell.Offset(0, 1).NumberFormat = "#,##0.00"
> activecell.Offset(0, 1).Value = Iva
> control:
> End Sub