Makro, ktoré stačí vložiť do druhého listu (List2), by mohlo vyzerať napríklad takto:

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim aRange As Range
    Dim aRow As Range
    Dim aCell As Range
    Dim aResult As Range
    Dim aPart1 As String
    Dim aPart2 As String
    Dim aPart3 As String
    Dim aPart4 As String
    
    Set aRange = Intersect(Target, Range("A:F"))
    If Not aRange Is Nothing Then
        For Each aRow In aRange.Rows
            If aRow.Row <> 1 Then
                Set aCell = Cells(aRow.Row, 1)
                aPart1 = aCell
                aPart2 = Format(aCell.Offset(0, 1), "dd.mm.yyyy") & aCell.Offset(0, 2) & aCell.Offset(0, 3)
                aPart3 = aCell.Offset(0, 4)
                aPart4 = Format(aCell.Offset(0, 5), "dd.mm.yyyy")
                Set aResult = ActiveWorkbook.Worksheets("List1").Cells(aRow.Row, 2)
                aResult.Value = aPart1 & aPart2 & aPart3 & aPart4
                aResult.Characters(Len(aPart1) + 1, Len(aPart2)).Font.Bold = True
                aResult.Characters(Len(aPart1) + Len(aPart2) + Len(aPart3) + 1, Len(aPart4)).Font.Bold = True
            End If
        Next
    End If
End Sub