Macro de las Mesas que me indique si la mesa ya esta grabada, por mensaje que me diga mesa # grabada y salga de la macro.

Te dejo la macro ajustada, debes agregar las líneas en negrita:

Sub comparaMesas()
'x Elsamatilde

'se ejecuta desde la Hoja1
Hoja1.Select
dato = [A1]
'se busca en Hoja2 el contenido de A1
Set busco = Hoja2.[A:A].Find(dato, LookIn:=xlValues, lookat:=xlWhole)
'si encuentra el dato primero compara si ya se encuentra los datos copiados
If Not busco Is Nothing Then
If Hoja2.Range("B" & busco.Row) <> "" Then
MsgBox "La " & dato & " ya se encuentra grabada.", , "INFORMACIÓN"
Exit Sub
End If
'guarda en esa fila la info transpuesta
Range("A3:A" & Range("A10").End(xlUp).Row).Copy
Hoja2.Select
Range("B" & busco.Row).Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
'vuelve a Hoja1 y deja mensaje
Hoja1.Select
Range("A" & Rows.Count).End(xlUp).Offset(1, 0) = dato & " copiada."
'[A10] = "Mesa copiada"
Application.CutCopyMode = False
Else
MsgBox "No se encontró " & dato, , "INFORMACIÓN"
End If
End Sub