Experimente assim:

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

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.

A solução sem precisar exibir que inclusive roda se a planilha estiver oculta, é essa:

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