Sorting partial rows by equatation (see attachment)

[simonvdp]

Hello,

In the sample attached, I'm trying to move cells A-G, so the text in column G is equal to the one in H (value 1 for column I)
As I only have basic knowledge about formulas and VBA, I've been searching around and tried some VBA-scripts but I can't seem to get it right.

Does anyone has an idea how to do this?
I have to get data sorted between two files, where one file is missing quite a lot of time-data (files consist data for weeks/months).
So if I can't find a quick sorting-module or script, I'll be busy for some days I guess

I'm sorry the explanation is a bit poor (English isn't my birth language), but I hope the sample gives you an idea of the problem.

Many thanks in advance,
Simon

My input-language is Dutch, but I'll figure it out, if one comes with a solution in English

[simonvdp]

So summarized,
The file has two columns where cells have the same value, only not in the same row.
I'd like to move all columns (including one of these) to the row where these to columns have the same value, as the data is time-dependent and should stay with the right time.

This means parts of the rows will have to be deleted (or moved to the bottom) to make this happen.
Ideas?

[simonvdp]

One of my teachers helped me to find the solution, it may not be the perfect solution, but it works.
For those interested:

Sub VglData()


Dim tijd As Date

Range("e2").Select
Selection.End(xlDown).Select
rij1 = ActiveCell.Row
i = 2

Do While i <= rij1
tijd = Cells(i, 5).Value
uurmin = Hour(tijd) & ":" & Minute(tijd)
tijd2 = Cells(i, 6).Value
uurmin2 = Hour(tijd2) & ":" & Minute(tijd2)
If uurmin <> uurmin2 Then
bereik = "A" & CStr(i) & ":E" & CStr(i)
Range(bereik).Delete Shift:=xlUp
rij1 = rij1 - 1
Else
i = i + 1
End If

Loop

End Sub