Realizar Copia de Planilha de Acordo com a Condição

[samukakinboll]

bom dia
pessoal estou apanhando para desenvolver um código
segue o raciocínio abaixo:
Sub copia maquina()
Sheets("Pendencia").Select
Range("D3").Select
Do Until ActiveCell = "MAQUINA 02" 'FINALIZA AÇÃO AO ENCONTRAR
ActiveCell.Offset(1, 0).Select 'PULA UMA LINHA
If ActiveCell = "MAQUINA 01" Then 'DETECTA A MAQUINA
AQUI ELA DEVE PULAR UMA LINHA E LOGO APOS COMEÇAR A COPIAR
NA RANGE "D" AS PENDENCIAS ATE ENCONTRAR A SEGUNDA MAQUINA E PARAR
ElseIf ActiveCell = "MAQUINA 02" Then
Application.Run "BUSCAMAQUINA"
End If
Loop
End Sub
Alguem pode me ajudar?
Obrigado!