Cara, no momento não estou conseguindo upar arquivos, então, faça o seguinte:
Exclua a coluna "A", depois disso, experimente esse código:
Sub Corrige_Erro_GT()
On Error Resume Next
Application.ScreenUpdating = False
Dim i As Integer
i = 2
Do Until IsEmpty(Cells(i, "A"))
If Cells(i - 1, "D").Value = Cells(i, "D").Value Then
If Cells(i, "E").Value - Cells(i - 1, "E").Value > 0.125 Then
Cells(i, "A").EntireRow.Insert.xlDown
Range(Cells(i - 1, "A"), Cells(i - 1, "D")).Copy Range(Cells(i, "A"), Cells(i, "D"))
Cells(i, "E").Value = Cells(i - 1, "E").Value + 2 / 24
End If
End If
i = i + 1
Loop
Application.ScreenUpdating = True
End Sub
Lembre-se de AGRADECER aos que te ajudaram, e de marcar o tópico como [Resolvido]
Gente que cuida de gente.
Gilmar
Postado : 24/03/2014 5:58 pm