Envie uma cópia da planilha para facilitar o suporte.

Use assim:

   
With ThisWorkbook.Sheets("Validações").Range("C" & firstLine & ":F300")
        .ClearContents
        .Interior.Pattern = xlNone
        .Interior.TintAndShade = 0
        .Interior.PatternTintAndShade = 0
End With

Boa tarde.

Eu não consegui eliminar o SELECT quando eu cola células que foram copiadas, portanto ainda está dando falha em planilhas ocultadas
Segue o código:

        With .Sheets("Departamentos")
            ultLin = .Cells(Rows.Count, "A").End(xlUp).Row
            .Range("A1" & ":D" & ultLin).Copy
        End With
        
        With .Sheets("Validações")
            Planilha = .Name
            .Select
            .Range("D1").Select
            .Paste
	End With

Como posso eliminar o SELECT deste trecho de código?

Para rodar uma macro a planilha não pode estar oculta. Se tentar rodar a macro com a planilha oculta vai dar erro.

Para rodar uma macro a planilha não pode estar oculta. Se tentar rodar a macro com a planilha oculta vai dar erro.

informação errada. Equivocada.

Tente assim:

        With .Worksheets("Departamentos")
            ultLin = .Cells(.Rows.Count, "A").End(xlUp).Row
            .Range("A1" & ":D" & ultLin).Copy
        End With
        
        .Worksheets("Validações").Range("D1").PasteSpecial Paste:=xlPasteAll

Ou assim, que eu prefiro:

Dim shtDeptos       As Excel.Worksheet
Dim shtValidacao    As Excel.Worksheet
    
    With ThisWorkbook
        Set shtDeptos = .Worksheets("Departamentos")
        Set shtValidacao = .Worksheets("Validações")
    End With
    
    With shtDeptos
        ultLin = .Cells(.Rows.Count, "A").End(xlUp).Row
        .Range("A1" & ":D" & ultLin).Copy shtValidacao.Range("D1")
    End With
    
    Set shtDeptos = Nothing
    Set shtValidacao = Nothing