MOSTRAR MENSAJE DE CELDA VACIA?????

Duda el siguiente programa me hicieron el favor de ayudarme a
realizarlo

la Duda es la siguiente:
Si no coloco nada en la columna "A"(celdas vacias) y acciono el macro
me copia informacion en la hoja 3, quisiera que no me copiara nada de
la hoja(siempre y cuando no exista o este vacia las celdas en la hoja
1) y mostrarme un cuadro de texto "no existe y/o celda vacia" y pues
si existe la celda en la hoja dos pues que coloca la informacion
pedida(es lo que hace el codigo)

Les agradeceria que me ayudaran a resolver esta pequeña duda

es urgentisimo



Sub Botón1_AlHacerClic()
Dim Origen As Range
On Error Resume Next
With Worksheets("hoja2")
Set Origen = .Cells.Find( _
What:=Worksheets("hoja1").Range("b2"), _
After:=.Range("a1"), _
LookAt:=xlWhole)
End With
If Origen Is Nothing Then
MsgBox Worksheets("hoja2").Range("b2") & " NO se encuentra !!!"
Exit Sub
End If
With Worksheets("hoja3")
Origen.Resize(5).EntireRow.Copy _
Destination:=.Cells(Rows.Count, "a").End(xlUp).Offset(5)
End With
Set Origen = Nothing
End Sub