Celdas vacías en formulario

Con tan pocas aclaraciones me será imposible darte una respuesta precisa.
Formulario... imagino que diseñaste en la hoja ... ¿o se trata de un Userform?
¿Por qué no la podes usar la macro en el botón?... entonces indicame qué tipo de botón usaste (barra Formulario o Cuadro de controles -Activex)
También escribirme la macro para que pueda darme cuenta cómo hace referencia a las celdas...
Sdos. Espero tus aclaraciones

Es cierto di poca información!... mis disculpas!
Es un USERFORM que tiene botones nuevo/guardar/imprimir....etc
Lo que quiero es agregar un botón para eliminar celdas vacías.
El macro que tengo es la siguiente
Sub Eliminar_filas_vacias()
'ocultamos el procedimiento
Hoja1.Visible = xlSheetVisible
Sheets("Datos").Select
Range("A2").Select
Application.ScreenUpdating = False
'suprondremos que vamos a inspeccionar 1.000 filas,
'en busca de todas las que haya en blanco
For i = 1 To 1000
'si la celda está vacía...
If ActiveCell = "" Or IsNull(ActiveCell) Then
'nos quedamos con la celda donde estamos
'para volver a ella posteriormente
celda = ActiveCell.Address
'vamos hasta la primera celda a la
'derecha que encontremos, con datos
Selection.End(xlToRight).Select
'si está vacía esa celda
If ActiveCell = "" Or IsNull(ActiveCell) Then
'miramos si a la izquierda hay datos
Selection.End(xlToLeft).Select
'si también está vacía esa celda
If ActiveCell = "" Or IsNull(ActiveCell) Then
'eliminamos la fila
Selection.EntireRow.Delete
'volvemos a la celda donde estábamos
'siempre y cuando no estemos en la fila 1
If ActiveCell.Row <> 1 Then Range(celda).Offset(-1, 0).Select
End If
End If
End If
'pasamos a la siguiente fila
ActiveCell.Offset(1, 0).Select
Next
'mostramos el procedimiento
Application.ScreenUpdating = True
Hoja1.Visible = xlSheetVeryHidden
End Sub
Muchas pero muchas gracias!