Bom dia gabrba,

Tenta assim:

Option Explicit

'Gravar os resultados no banco de dados
Sub GRAVARRAST()
Dim i As Byte

    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual
    
    Sheets("RAST").Rows("7:15").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Sheets("Ddos").Rows("4:12").Copy
    Sheets("RAST").Rows("7:15").PasteSpecial Paste:=xlPasteValuesAndNumberFormats
    
    Application.CutCopyMode = False

    For i = 7 To 15
        If Sheets("RAST").Range("F" & i).Value = "" Then
            Sheets("RAST").Rows(i & ":" & i).EntireRow.Delete
        End If
    Next i
    
    Sheets("Ddos").Visible = False
    Sheets("Rastreabilidade").Range("H3").Select
    
    Application.Calculation = xlCalculationAutomatic
    Application.ScreenUpdating = True

End Sub

Qualquer coisa da o grito.
Abraço

Olá Bernardo!

Primeiramente obrigado pela resposta rápida.
Já tentei um código parecido mas ela acaba não apagando todas as linhas. Será que há alguma outra maneira ou código para adaptar ao que já temos?

Não há nada de errado no código...
Teria que olhar a planilha para uma verificação...
Veja se nas células da coluna "F" contém um espaço ou algo que não apareça por exemplo...

Nesse espaço há uma fórmula que puxa de outra planilha (digamos que é de uma planilha primária), mas é uma fórmula que possibilita deixar a célula em branco se na planilha primária não tiver alguma informação digitada.

não li direito mas tente trocar essa parte do codigo do bernardo

    For i = 7 To 15
        If Sheets("RAST").Range("F" & i).Value = "" Then
            Sheets("RAST").Rows(i & ":" & i).EntireRow.Delete
        End If
    Next i

por

    For i = 15 To 7 step -1
        If Sheets("RAST").Range("F" & i).Value2 = "" Then
            Sheets("RAST").Rows(i & ":" & i).EntireRow.Delete
        End If
    Next i

no caso vai ir de baixo para cima
se bem que provavelmente estou me metendo onde não fui chamado pq o bernardo sabe muito mais do que eu

Tenta assim:

    Option Explicit

    'Gravar os resultados no banco de dados
    Sub GRAVARRAST()
    Dim i As Byte

        Application.ScreenUpdating = False
        Application.Calculation = xlCalculationManual
       
        Sheets("RAST").Rows("7:15").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
        Sheets("Ddos").Rows("4:12").Copy
        Sheets("RAST").Rows("7:15").PasteSpecial Paste:=xlPasteValuesAndNumberFormats
       
        Application.CutCopyMode = False

        For i = 15 To 7 step - 1
            If len(Sheets("RAST").Range("F" & i).Value) = 0 Then
                Sheets("RAST").Rows(i & ":" & i).EntireRow.Delete
            End If
        Next i
       
        Sheets("Ddos").Visible = False
        Sheets("Rastreabilidade").Range("H3").Select
       
        Application.Calculation = xlCalculationAutomatic
        Application.ScreenUpdating = True

    End Sub

Qualquer coisa da o grito.
Abraço

Tentei com esse novo código mas apresentou um erro, o excel está destacando essa parte:

For i = 15 To 7 step - 1

entre o "-" (sinal de menos) e o "1" tem um espaço. Remove ele e tenta novamente.

Removido, o erro continua persistindo :/

o certo é vc criar uma planilha de exemplo
troque os dados sigilosos e poste isso vai eliminar um bocado de falhas simples
primeiro que não sabemos oq tem na planilha e depois que vc não conhece muito

mas o erro apresentado é dessa parte

Dim i As byte "laços pelo visto não aceita isse tipo de variaveis para decremento"
troque ´por
Dim i As Long

byte só como valore individuais ou arrays
vba não tem melhora de performance usando variaveis simples como intenger ou bute

Olá, bom dia!

Apenas troquei os valores Dim i As byte por Dim i As long e deu certo!!

Agradeço à todos os envolvidos pela grande ajuda!

Abraços e boas festas!!

Gabriel