00초를 검색해서 랜덤으로 1~58초 랜덤으로 바꿔주는방법 있을까요?

Sub test()

Application.ScreenUpdating = False

    Dim r As Range
    Dim Sec As Integer
    
    For Each r In Range("A:A").SpecialCells(xlCellTypeConstants).Cells
    
        If r.Value <> "" Then
            If Second(r.Value) = 0 Then
                Sec = Int((58 * Rnd) + 1)
                r.Next.Value = r.Value - TimeSerial(0, 0, Second(r.Value)) + TimeSerial(0, 0, Sec)
            Else
                r.Next.Value = r.Value
            End If
        End If
    Next r
    
Application.ScreenUpdating = True

    
End Sub