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