Contador de datos con macro

Buena tarde expertos
Mi problema es muy sencillo, pero no he podido dar con el problema, tengo una macro que me ingresa una información, nada extraordinario, ahora quiero que en la celda B1, me lleve un contador de los datos insertados, pero como ya inserte unos, quiero entonces que yo al colocarle un valor en la celda B1, la macro tome este valor, no importa que valor sea, lo puedo cambiar en cualquier momento, y me le sume 1 cada vez que ingreso un dato.
Este es el código que estoy tratando de usar, pero no se, así escriba cualquier numero en B1, lo único que logro al dar click es que me convierte lo que sea que escriba en 1.
Les explico más o menos que trate de hacer con este código, por si no lo entienden, primero que se pare en la celda B1 y me guarde en una variable lo que hay allí, esta variable es contador, luego que lo que hay en esa celda, que se supone esta en contador, le sume 1, luego va a la celda B5, y agrega la info que necesito, finalmente quiero que vuelva a la celda B1 y que deje allí el valor nuevo, osea el que había más 1.
Private Sub CommandButton1_Click()
Dim contador As Integer
Range("B1").Select
contador = Val(Range("B1").Select)
contador = contador + 1
Range("B5").Select
Selection.EntireRow.Insert
TextBox1 = Empty
TextBox2 = Empty
TextBox3 = Empty
TextBox4 = Empty
TextBox5 = Empty
TextBox1.SetFocus
Range("B1").Select
ActiveCell.FormulaR1C1 = contador
End Sub