Cole aqui o código gravado.

oPA, ta aí.

Mas note o seguinte, para pegar o valor da célula, tive que copiar o conteúdo diretamente da barra de fórmulas, se não não vai.

Sub SALVAR()
'
' SALVAR Macro
'

'
    Sheets("CONSOLIDADO").Select
    Range("B2").Select
    Selection.Copy
    Range("G2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    ActiveWorkbook.SaveAs Filename:= _
        "H:Ger-RHRemuneraçãoComissõesApuração  pelo RH2015JANEIRO.xls", _
        FileFormat:=xlExcel8, Password:="", WriteResPassword:="", _
        ReadOnlyRecommended:=False, CreateBackup:=False
End Sub

Use este código:

Sub SALVAR_FF()
' SALVAR Macro

    Sheets("CONSOLIDADO").Select
    Range("G2").Value = Range("B2").Value
    ActiveWorkbook.SaveAs Filename:=Range("G2").Value, _
        FileFormat:=xlExcel8, Password:="", WriteResPassword:="", _
        ReadOnlyRecommended:=False, CreateBackup:=False
End Sub

Fala Fernando, bom dia amigo.

Coloquei o código que vc fez.

O excel me deu uma mensagem de erro. Pede para eu verificar algumas possibilidades. Veja o anexo por favor.

Neste código que passou, onde especifico o caminho da rede onde o arquivo deve ser salvo ?

Valeuuuuuuuu
Se tiver condição de ajudar vai ser show.

Obrigado pela atenção e ajuda de sempre meu caro.