Move data with reference to format and spaces

My worksheet contains tracklistings and timings within the range H1:K100. In column H is a track number. In column J is a title , and in column K is a running time for each.

Unfortunately in some cases the timing element has become misplaced to column H.

I'm trying to tidy these worksheet entries using VBA.

Essentially , where the timing element has slipped into row H , it needs to be relocated to it's correct position in K.

For example , in the attached sample :

H9 would be moved to K8
H13 would be moved to K12
H20 would be moved to K19
H22 would be moved to K21

This being done , the cells with content would be selected and moved up to replace any empty cells and make a compact listing. Deleting empty rows would not be an option in this case , as it would affect other parts of the worksheet.

The macro would need to search the range H1:K100 and make corrections it finds. The content of H1:K100 does vary from tracklisting to tracklisting , but the error pattern is always the same.

I'm hoping someone can help with some code to satisfy this.

The attached sample gives a 'before and after' position in the two tabs by way of example.

Grateful for any advice.

jindon - many thanks. This does the job.

There is one small thing though. It's leaving in place the last timing in column H , when it should delete it. In the case of the sample file above it's H19 , but this could vary of course with different data.

Can the code be modified to accommodate this?

Thanks jindon

BTW - I was wondering if empty rows in H:K could be overwritten by moving cells in H:K with content *up* rather than deleting the whole row. Deleting the row does cause issues elsewhere in the worksheet.

So for example

Row H I J K
23 1 2 2 2
24 2 3 6 8
25
26 5 6 7 8
27
28 2 3 3 7

Would become

Row H I J K
23 1 2 2 2
24 2 3 6 8
25 5 6 7 8
26 2 3 3 7

without deleting rows 25 & 27

Grateful for any advice

Thanks jindon. yes , it's related to the same project. The issue is where other text or formulas in A:G are being deleted because they are on the same row as affected rows in H:I.

The formulas change to accommodate the delete , but other data and content is entirely deleted by the macro. I'll attach a modified sample.

If you run the 'test' macro I hope you can see the effect on rows 1 - 3 .

Very grateful for your time and expertise.

jindon - perfect solution. Many thanks!