Si comprendí bien tu idea, se supone que tu das click en el botón y se abre el archivo al cual hace referencia el hypervinculo, pues si es así, deberás agregar el siguiente procedimiento a tu macro.
Sub GuardarComo()
'Primero declaro dos variables para almacenar la ubicacione del archivo
'pdf que contiene el hypervínculo y donde se almacenará una copia de él
Dim OldFile, NewFile As Variant
'Aqui le asigno a OldFile la dirección del hypervínculo
OldFile = ActiveCell.Hyperlinks(1).Address
'Luego con GetSaveAsFilename abro la ventana Guardar Como de Windows
'dandole el filtro correspondiente para que solo acepte archivos PDF
NewFile = Application.GetSaveAsFilename(OldFile, "Archivo PDF de Adobe (*.pdf),*.pdf")
'Luego la validación, ya que si cancelaste el Guardar Como del archivo PDF
'en el NewFile se almacenará False
If NewFile <> False Then
'La línea siguiente es para prevenir algún error al momento de guardar los datos
On Local Error Resume Next
'Ahora procedemos a copiar el archivo desde la antigua ubicación a la nueva
'ubicación
FileCopy OldFile, NewFile
'Si se produce un error el If a continuación será verdadero
If Err Then
MsgBox "No se pudo copiar el archivo", vbCritical
Else
MsgBox "Se ha guardado " & OldFile & " como " & NewFile
End If
End If
End Sub
Este procedimiento debe ser llamado luego de haber seleccionado la celda donde se encuentra el hypervínculo, o sea, luego de Range("A11").Select siguiendo el código de ejemplo que has proporcionado.
Espero haber sido lo más claro posible y obviamente que te sea útil.
Saludos.
Kaiser.