Macro para copiar e colar valores de todas as planilhas

[Atmos de Souza Maciel]

Bom dia! Estou buscando uma macro que copia e cola valores de todas as planilhas que eu tiver em um arquivo excel e depois a salva com outro nome em alguma pasta determinada. O objetivo disso é ter um arquivo sendo a base com formulas e outro sem formulas. Alguém poderia ajudar? Obrigado!

[CasaDoHardware]

Disponibilize um modelo da planilha.

[DJunqueira]

Eventualmente você poderia usar Nova Consulta / Power Query p/ isso.

[Atmos de Souza Maciel]

Bom dia gente, essa eu  consegui já. Contudo estou com problema em uma que seguirá abaixo. Nela eu preciso selecionar varias planilhas diferentes e que encontra em cada uma delas qual é a ultima linha preenchida e oculte todas a partir da primeira linha vazia. Eu só consegui fazer selecionando uma planilha. Selecionando mais de uma não consegui. Se puder ajudar será ótimo!

 

Sub Ocultar()

Application.ScreenUpdating = False
' Seleciona a planilha que será utilizada

Sheets("Pax").Select

' Dimensiona as variaveis

Dim i As Integer

Dim intultlinha As Integer

'Encontra a última linha preenchida

intultlinha = Cells(Rows.Count, 3).End(xlUp).Row

'Define o que será feito

For i = intultlinha + 1 To 300

' Se a linha seguinte a última preenchida for vazia, então...

If Cells(intultlinha & 3).Value = "" Then

' Seleciona o range a ser escondido
Rows(i & ":" & 200).Select

' Esconde o Range selecionado

Selection.EntireRow.Hidden = True

Else
End If
Next i

End Sub