Macro VBA Excel

[mrocf]

Hola! KonnaN
No entiendo que es "eso" de txt_insertar_marca.Value.

Pero si te funciona, aplícalo del siguiente modo:

Código:

Private Sub btn_insertar_Click()
With Range("b" & Rows.Count).End(xlUp).Offset(1)
  .Value = 1 + .Offset(-1)
  .Offset(, 1) = txt_insertar_marca.Value
End With
End Sub 

Saludos, Cacho.