Llenado de celdas

hola, Jorge !

si en la columna B de la hoja2 las celdas estan (realmente) vacias y solo hubiera vacias (?)
solo necesitarias una linea de codigo para el procedimiento o macro asignada al boton...

Worksheets("hoja2").Range("b:b").SpecialCells(xlCellTypeBlanks).Value = Date

si el caso es que existen tanto vacias como ceros, prueba con autofiltros por codigo +/- asi:

With Worksheets("hoja2")
If .AutoFilterMode Then .AutoFilterMode = False
With .Range("a1").CurrentRegion
.AutoFilter Field:=2, Criteria1:="=", Operator:=xlOr, Criteria2:="0"
End With
With .AutoFilter.Range
.Offset(1, 1).Resize(.Rows.Count - 1, 1).SpecialCells(xlCellTypeVisible).Value = Date
End With
.AutoFilterMode = False
End With

saludos,
hector.

__ OP __

en la hoja1 tengo el boton1
en la hoja2, tengo una serie de registros en donde:
columnaA usuario
columnaB fecha
columnaC otros
columnaD otros etc...
lo que necesito es que cuando de click en el boton1 de la hoja1, en la hoja2 columnaB
en donde la fecha este vacía, o en 0, me coloque la fecha del dia
esto debera hacerla para cada celda de la columna b hasta el final de los registros