Este fórum está sendo desativado

[andriessen]

Boa tarde!
Estou usando um codigo que recebi por aqui mas preciso readapta-lo.
Codigo:
Sub ReplicaDados()

Application.ScreenUpdating = False
Application.EnableEvents = False
Application.Calculation = xlCalculationManual

Sheets("Planilha_Ed").[A:AA] = ""
Dim i, j, f, primeira, ultima_colar, ultima As Long

f = 100
Do Until Cells(f, 1) = "Qtde"
f = f - 1
Loop

ultima = Sheets("Orçamento").Cells(f - 1, 1).End(xlUp).Row
For i = 5 To ultima
For j = 1 To Cells(i, 1).Value
ultima_colar = Sheets("Planilha_Ed").Range("A10000").End(xlUp).Row
If ultima_colar >= 1 And i > 5 Then
ultima_colar = ultima_colar + 1
End If

Worksheets("Orçamento").Range("A" & i & ":AA" & i).Copy
Worksheets("Planilha_Ed").Range("A" & ultima_colar).PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
Next j
Next i

primeira = f + 1
ultima = Sheets("Orçamento").Range("A10000").End(xlUp).Row
For i = primeira To ultima
ultima_colar = Sheets("Planilha_Ed").Range("A10000").End(xlUp).Row
If ultima_colar >= 1 And i > 5 Then
ultima_colar = ultima_colar + 1
End If
Worksheets("Orçamento").Range("A" & i & ":AA" & i).Copy
Worksheets("Planilha_Ed").Range("A" & ultima_colar).PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
j = j + 1
Next i


Call PlanilhaEd

Application.Calculation = xlCalculationAutomatic

Application.EnableEvents = True

Application.ScreenUpdating = True

MsgBox "Macro terminou", vbOKOnly

End Sub

O que acontece é que tenho a parte de PESSOAL que começa na A5 e a parte de equipamentos que começa em uma linha variavel.
Estou tentando adaptar o codigo para quando SOMENTE lançar PESSOAL.
O que acontece agora? se não tiver nenhum equipamento lançado (e então não vai ter o cabeçalho) ele apenas copia os dados de pessoal sem separa-los pela quantidade.
Tentei fazer assim: Pesquiso na coluna A se tem 1 ou 2 vezes a palavra "Qtde", se tiver apenas 1 ele para no final da Range A5 ate o final. se tiver 2x ele faz o codigo inteiro.
Não estou conseguindo encaixar (encontrar) onde para a primeira parte.
Poderiam me auxiliar novamente por favor.

[babdallas]

Qual o resultado esperado da macro? Poderia dar um exemplo, por favor? Não importa o código, só quero saber o que você deseja que faça.

[andriessen]

desculpe ja tinha resolvido. vou fechar o topico. Obrigado