Range("A1").Hyperlinks.Count

Sub Cruel_data_management()

Dim shtX As Worksheet 'For Chest list
Dim strX As String 'For string operations
Dim X As Long 'To run through Chest list
Dim A As Long 'How much rows do we have in Data list
Dim B As Long 'Where is our value on Data list

'Author:    Roman Rioran Voronov
'Date:      the 1-st of August, 2014
'Feedback:  voronov_rv@mail.ru

'Purpose:   Realisation of algorithm for excel-world.ru user
'           http://www.excelworld.ru/forum/10-12229-1#104720

Set shtX = ThisWorkbook.Sheets("Chest")

Application.ScreenUpdating = False
With ThisWorkbook.Sheets("Data")
On Error Resume Next

A = .Cells(.Rows.Count, 1).End(xlUp).Row

For X = 1 To shtX.Cells(shtX.Rows.Count, 1).End(xlUp).Row
     If shtX.Cells(X, 1).Hyperlinks.Count Then
         B = .Range(.Cells(1, 3), .Cells(A, 3)).Find(shtX.Cells(X, 1).Value).Row
         If B > 0 Then
             strX = shtX.Cells(X + 2, 1).Value
             strX = Left(strX, InStr(1, strX, ",", 1) - 1)
             .Cells(B, 12).Value = strX
             .Cells(B, 19).Value = shtX.Cells(X, 2).Value
             .Cells(B, 24).Value = shtX.Cells(X, 3).Value
             If shtX.Cells(X, 3).MergeCells Then
                 .Cells(B, 25).Value = shtX.Cells(X, 3).Value
                 .Cells(B, 20).Value = "private"
             Else
                 .Cells(B, 25).Value = shtX.Cells(X + 4, 3).Value
                 .Cells(B, 20).Value = "public"
             End If
             .Cells(B, 23).Value = shtX.Cells(X, 4).Value
             .Cells(B, 27).Value = shtX.Cells(X, 5).Value
             B = 0
         End If
     End If
Next X

End With
Application.ScreenUpdating = True
End Sub