SIMPLE VBA CODING REQUIRED

[nburaq]

Hi Gents,
The database program I work with generally converts the data with empty spaces and it is very annoying to arrange it every time to be able to work with excel. Is it possible to fill empty cells with the screenshot below: PS: I filled one by manually by red color as an example. If there is title, item or group belongs to an order it gives empty cells and I have to fill it manually and between every item there are three empty rows if there is data belong to order. Thanks for the comments and help!

 

[kweaver]

Maybe this?

Sub FillIn()
Dim lr As Long, i As Long
lr = WorksheetFunction.Max(Cells(Rows.Count, "E").End(xlUp).Row, Cells(Rows.Count, "D").End(xlUp).Row)

For i = 1 To lr
 If IsEmpty(Cells(i, 1)) And Not IsEmpty(Cells(i, 5)) Then
 Cells(i, 1) = Cells(i - 2, 1)
 Cells(i, 2) = Cells(i - 2, 2)
 Cells(i, 3) = Cells(i - 2, 3)
 Cells(i, 4) = Cells(i - 2, 4)
 ElseIf IsEmpty(Cells(i, 1)) And Not IsEmpty(Cells(i, 4)) Then
 Cells(i, 1) = Cells(i - 2, 1)
 Cells(i, 2) = Cells(i - 2, 2)
 Cells(i, 3) = Cells(i - 2, 3)
 Cells(i, 5) = Cells(i - 2, 5)
 End If
Next i
End Sub