Neodenn

Bom Dia!
 
Criei um código mas não está funcionando como eu queria. Preciso que seja feita uma verificação na coluna B da Sheet "ORÇAMENTO".
Se encontrar vazio " ", colar conteúdo copiado já predefinido no código.
Preciso apenas corrigir a parte de colar. Essa Macro está associada a um botão localizado na aba onde o conteúdo é copiado, a verificação e a colagem
devem ser feitos na aba "ORÇAMENTO".
 
Segue o meu código:
 
<
Sub IsCopiarSelecao()
If Range("L5").Value <> "" Then _
Range("K5:P7").Copy
If Range("L10").Value <> "" Then _
Range("K10:P11").Copy
If Range("L15").Value <> "" Then _
Range("K15:P17").Copy
If Range("L20").Value <> "" Then _
Range("K20:P22").Copy

contaLinha = 1 'Esta variavel irá servir para pular de linha
verificaCel = Sheets("ORÇAMENTO").Cells(contaLinha, 1).Value  'Variável para gravar o conteúdo da célula
Do While verificaCel <> ""         'Faça enquanto conteudo da celula diferente de  vazio
   '...
   contaLinha = contaLinha + 1 'soma ela mesma, pula para próxima linha
   verificaCel = ThisWorkbook.Sheets("ORÇAMENTO").Cells(contaLinha, 1).Value  'verifica novo conteudo
Loop 'volta para o while
  
If verificaCel = "" Then Sheets("ORÇAMENTO").Range("B" & contaLinha).PasteSpecial
End Sub
 
>
 
Como pode-se notar na imagem, preciso usar a Coluna B para a verificação pois a coluna A é mesclada em 2 linhas.
 
Desde já grato!!!


 
 
 
kkkkkkkkkkkk, resolvi o meu problema, fiz algumas alterações e deu certo.
Não estava dando certo anteriormente porque meu Excel havia bugado, bastou abri-lo e fecha-lo e fazer as alterações.
 
<
Sub IsCopiarSelecao()
If Range("L5").Value <> "" Then _
Range("K5:P7").Copy
If Range("L10").Value <> "" Then _
Range("K10:P11").Copy
If Range("L15").Value <> "" Then _
Range("K15:P17").Copy
If Range("L20").Value <> "" Then _
Range("K20:P22").Copy
inicio = 15
contaLinha = 1 'Esta variavel irá servir para pular de linha
Linha = inicio + contaLinha
verificaCel = Sheets("ORÇAMENTO").Range("B" & Linha).Value  'Variável para gravar o conteúdo da célula
Do While verificaCel <> ""         'Faça enquanto conteudo da celula diferente de  vazio
   '...
   Linha = Linha + 1 'soma ela mesma, pula para próxima linha
   verificaCel = ThisWorkbook.Sheets("ORÇAMENTO").Range("B" & Linha).Value  'verifica novo conteudo
Loop 'volta para o while
  
If verificaCel = "" Then ThisWorkbook.Sheets("ORÇAMENTO").Range("A" & Linha).PasteSpecial
End Sub
>
 
Coloquei também um inicio para a verificação, mas enfim, agradeço o esforço daqueles que visualizaram e tentaram solucionar.
 
Aproveitando, alguém sabe como posso inserir linhas ao invés de cola-las por cima?

@Basole Cara deu certo!!!!!
Muitíssimo obrigado, tentei de varias formas e não consegui, não tinha pensado em usar uma array para percorrer o texto. Agradeço muito os seus esforços para tentar solucionar o problema, e até mesmo enriqueceu meu conhecimento. Parabéns, muito bom mesmo!