Parar uma macro apos condição ser falsa

[Dominuss]

Galera a duvida é a seguinte, estou montando uma planilha onde copia os dados de uma determinada celula e alimenta uma especie de banco de dados em outra guia.

porém preciso que a macro seja cancelada caso o valo da célula inicial estiver vazio e só continue se o valor for diferente de zero.

 

Segue o código inicial que estou usando.

Sub GRAVAR_CAD()
'
' GRAVAR_CAD Macro
'
'
    Range("D8").Select
    Selection.Copy
    If Range("D8").Value = "" Then
    MsgBox "Insira o número da Fita"
     
   End If
      
    Sheets("REGISTROS").Select
    Range("D5").Select
    ActiveSheet.Paste
    Sheets("CAD_FITA").Select
    Range("D10").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("REGISTROS").Select
    Range("E5").Select
    ActiveSheet.Paste

 

[Basole]

Veja se e isso que quer: 

 

Sub GRAVAR_CAD()
'
' GRAVAR_CAD Macro
'
'
    Range("D8").Select
    Selection.Copy
    If Range("D8").Value = "" Then
    MsgBox "Insira o número da Fita"
    Range("D8").Activate
    Exit Sub
   End If
      
    Sheets("Plan1").Select
    Range("D5").Select
    ActiveSheet.Paste
    Sheets("CAD_FITA").Select
    Range("D10").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("REGISTROS").Select
    Range("E5").Select
    ActiveSheet.Paste
    
    
    End Sub

 

[Dominuss]

Basole,

 

Perfeito cara, pode me explicar como funciona esta função Activate?

Ja tinha usado o Exit Sub mas não tinha resolvido, mas o Activate foi perfeito!

 

Obrigado pela Solução.

[Basole]

O Activate é o mesmo que Select  exemplo : Range("D8").Select, mas eu prefiro usar o activate.