Segue sua macro com as alterações;

Sub salvar()
'
' Salvar Macro
'
Dim nome As String
'
Sheets("Score Card").Select
Range("B2:P62").ExportAsFixedFormat Type:=xlTypePDF, Filename:=ThisWorkbook.Path & "", Quality:=xlQualityStandard _
, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
True
Sheets("Score Card").Select
Range("B2:P62").Select
End Sub

Apuzédr,

Boa tarde!

Seja muito bem vindo ao fórum.

Para aproveitar ao máximo o fórum e sempre manter o mesmo de forma organizada, sugiro ler os tópico da regras abaixo:
viewtopic.php?f=7&t=16757
viewtopic.php?f=7&t=203
viewtopic.php?f=7&t=7903
viewtopic.php?f=7&t=3841
viewtopic.php?f=7&t=12600
viewtopic.php?f=7&t=3371

Pedimos, por gentileza, das próximas vezes que postar código VBA aqui no fórum, utilizar a ferramenta CODE existente no início da caixa de mensagens. Não a ferramenta QUOTE que você utilizou.

Amigo, não deu certo. Veja.

Ops, segue com a correção:

Sub salvar()
'
' Salvar Macro
'
Dim nome As String
'
Sheets("Score Card").Select
Range("B2:P62").ExportAsFixedFormat Type:=xlTypePDF, Filename:=ThisWorkbook.Path & "" & Sheets("Score Card").Range("D6").Value, Quality:=xlQualityStandard _
, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
True
Sheets("Score Card").Select
Range("B2:P62").Select
End Sub

Ainda não funcionou, aparentemente o comando "Thisworkbook" que é o comando que vai direcionar o local correto de salvamento esta inserido no local designado para o Nome do Arquivo. Pelo menos quando salvo acontece isso, o arquivo salva com o nome do local, ao invés de salvar no local do arquivo.

Estou supondo que no conteúdo da celula Sheets("Score Card").Range("D6").Value tenha algo como ...blablablabla.pdf
Se puder disponilibilizar seu arquivo ou exemplo, facilita o entendimento e a tua ajuda.

Em cima tem o botão de Salvar.

Quando se clica nele ele salva o arquivo em PDF com o nome que estiver inserido na Célular D6, ou, caso a célula esteja em branco ele simplesmente salva com o próprio nome do arquivo.

Só que ele salva no último lugar que o usuário utilizou para salvar qualquer coisa, e quero que salve onde o arquivo já se encontra.

Segue abaixo as alterações solicitadas.

Sub salvar()
    '
    ' Salvar Macro
    '
    Dim nome As String
    '
    
    With Sheets("Score Card")
        If .Range("D6").Value = Empty Then
            nome = ThisWorkbook.Path & "" & VBA.Left(ThisWorkbook.Name, VBA.InStr(ThisWorkbook.Name, ".") - 1) & ".pdf"
        Else
            nome = ThisWorkbook.Path & "" & .Range("D6").Value & ".pdf"
        End If
 
        .Select
        .Range("B2:P46").ExportAsFixedFormat Type:=xlTypePDF, Filename:=nome, Quality:=xlQualityStandard _
        , IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        True
        .Select
        .Range("B2:P46").Select
    End With
    
End Sub

É exatamente isso que eu queria.

Muito Obrigado

Basole, pode apagar o arquivo da sua resposta e deixar apenas o código?

Assim eu marco sua resposta como resolvida e fechamos o tópico.

Peço isso porque é propriedade da empresa.