Imprimir consecutivo de un label

Necesito imprimir consecutivo de una etiqueta en hoja excel pero me da error. Les agradecería una Lconsecutivo es la eticqueta

Sub consecutivo()
'''''''''consecuivo
Dim u As Range
'Para pasar los datos del formulario a la hoja

u = Range(" F" & Rows.Count).End(xlUp).Row + 1
Range("F" & u) = Val(Lconsecutivo)
Lconsecutivo = ""
Unload Me

Range("a65536").End(xlUp).Offset(1, 0).Activate

Ayuda.