Quiero crear un folio consecutivo por medio de un formulario en excel

tengo un archivo de excel el cual lo ejecuto con una macro y me abre un formulario

lo que necesito son tres cosas

la primera es que me genere un folio y sea consecutivo cada vez que guarde un registro

y ese folio me lo valla colocando en celda por celda

por ejemplo en la celda A2 con el folio 1000-1

en A3 1000-2 y asi sucesivamente , este folio debe mostrarse en un texbox

2 que una vez que se genero el folio me lo muestre en un label

y 3 tengo 2 combobox en los cuales tengo ya cargada la información con mis parámetros

la cual esta estructurada asi

Foli.additem "2456"

Foli.additem "2153"

asi con 20 registros mas en el primer combobox

lo que necesito es que al elegir un dato en el primer combo

en el segundo me arroje el nombre referente al dato que seleccione

en el segundo combobox

la estructura esta asi

Zona.AddItem "Norte"

Zona.AddItem "Sur"

y asi con 20 datos mas

espero de su ayuda y gracias