Private Sub CommandButton1_Click()

Dim arrKoment()
Dim MaxRadek As Long
Dim i As Long

MaxRadek = Me.Cells(Rows.Count, 3).End(xlUp).Row

If MaxRadek = 1 Then
    ReDim arrKoment(1, 1)
    arrKoment(1, 1) = Me.Range("C1").Value2
    Else
    arrKoment = Me.Range("C1").Resize(MaxRadek).Value2
End If

On Error Resume Next
For i = 1 To MaxRadek
    If Me.Cells(i, 4).Comment Is Nothing And Not IsEmpty(arrKoment(i, 1)) Then
            Me.Cells(i, 4).AddComment arrKoment(i, 1)
        ElseIf Not Me.Cells(i, 4).Comment Is Nothing And Not IsEmpty(arrKoment(i, 1)) Then
            Me.Cells(i, 4).Comment.Text Text:=arrKoment(i, 1)
        Else
            Me.Cells(i, 4).Comment.Delete
    End If
Next i
On Error GoTo 0
Erase arrKoment




 Range(Range("D50"), Range("D50").End(xlDown)).ClearComments 'Nie náhodou možné tento krok zlúčiť s posledným krokom ?
    Columns("T:T").Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Columns("D:D").Copy Destination:=Range("Y1")    'Určite potrebujete kopírovať celé bunky aj s farbami a pod. ? Nestačí oveľa rýchlejšie prekopírovanie iba hodnôt ? A určite celý stĺpec ? Nestačí iba kopírovať vyplnenú časť ?
    Range("Y1").Value = Date                        'Tu sa vkladá aktuálny dátum
    Range("Y1").NumberFormat = "m/d/yyyy"           'Nastavenie formátu dátumu
    Range(Range("D2"), Range("D2").End(xlDown)).ClearComments   'Detto prvý riadok
End Sub