Boa tarde amigos,

Estou fazendo um projeto de despesas internacionais onde em uma aba "Cadastro_Navios" eu insiro os dados:
Nome do navio na celula (H5) e na celula (N13) tem o carregamento total,
Esses valores eu preciso levar para a aba "BD", porém estes valores devem repetir 144 nas celulas "B" e "C" da aba "BD"
Depois o próximo registro deve copiar e colar na próxima linha em branco da aba "BD" 144 vezes também e assim por diante
Fiz a macro abaixo, mas ela copiar e cola 1 vez só, vocês podem me ajudar?

Sub Copiar()

Sheets("Cadastro_Navio").Select
Range("H5").Select
Selection.Copy
Sheets("BD").Select
Range("B10000").End(xlUp).Select
ActiveCell.Offset(1, 0).Select
ActiveSheet.Paste
Application.CutCopyMode = False
Sheets("Cadastro_Navio").Select
Range("N13").Select
Selection.Copy
Sheets("BD").Select
ActiveCell.Offset(0, 1).Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range("H5").Select
Sheets("Cadastro_Navio").Select
Range("H5").Select
End Sub

Obrigado.