Bom dia amigos.
No código abaixo eu crio uma nova guia, só preciso um comando a mais pra isso ser feito automaticamente.
Pode ser qualquer cor. Tem como?

Sub CopiaSemFormula()

    Dim NewSheet As Worksheet, CurrentSheet As Worksheet
    
    'pega a planilha atual
    Set CurrentSheet = ActiveSheet
    
    'cria uma nova planilha
    Set NewSheet = ThisWorkbook.Worksheets.Add
    NewSheet.Name = InputBox("RENOMEAR PARA:", "Renomeando...", NewSheet.Name)
    
    'copia todas as células da planilha ativa
    CurrentSheet.Cells.Copy
    
    'cola só os valores na nova planilha
    NewSheet.Range("A1").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    
    'zera os objetos
    Set NewSheet = Nothing
    Set CurrenSheet = Nothing
    
 End Sub