Creating .m3u from Hyperlinks

Option Explicit
 
Private Function GetHyperAddy(cell As Range) As String
     'Function purpose:  To return a hyperlink address if one exists
     'Assigns a value of "None" to the string if no hyperlink is present
     
    On Error Resume Next
    GetHyperAddy = cell.Hyperlinks.Item(1).Address
    If Err.Number <> 0 Then GetHyperAddy = "None"
    On Error GoTo 0
     
End Function
Sub playlist()

Dim HyperAddy As String, cl As Range, clSource As Range
Dim title As Range, cell As Range, wshshell As Object, myfile As String, fnum As String

Application.ScreenUpdating = False
'clear data columns. ensures beginning of working data is in b2 & c2, otherwise it just appends
'to the bottom of previously generated data
Worksheets("sheet2").Columns("a:c").ClearContents
'copy filtered hyperlinks to formula sheet to work with and delete header rows
Worksheets("sheet1").Columns("J:J").Copy Destination:=Worksheets("Sheet2").Range("A1")
Worksheets("sheet2").Rows("1:2").Delete

Set clSource = Worksheets("sheet2").Range("A:A")
  For Each cl In clSource
         'Get the hyperlink address
        HyperAddy = GetHyperAddy(cl)
        
        If Not HyperAddy = "None" Then
            With Worksheets("sheet2").Range("B65536").End(xlUp).Offset(1, 0)
                 'List link's display text in column b.
                .Offset(0, 0).Value = cl.Text
                 'list link in column c
                .Offset(0, 1).Value = HyperAddy
                
            End With
        End If
    Next cl
'broken down hyperlinks for a1 appear in b2 &c2; a2 in b3 & c3, etc. the places it back into b1
Worksheets("sheet2").Rows("1:1").Delete

'the generate playlist saves to the user's desktop; can't figure out how to simply clear the
'file prior to writing the new playlist.
Set wshshell = CreateObject("WScript.Shell")
    ChDir (wshshell.SpecialFolders("desktop"))
Dim KillFile  As String
KillFile = "playlist.m3u"
If Len(Dir$(KillFile)) > 0 Then
    SetAttr KillFile, vbNormal
     Kill KillFile
End If

myfile = "" & "playlist.m3u"
fnum = FreeFile()
Open myfile For Output As fnum
Print #fnum, "#EXTM3U"
Print #fnum,
ActiveWorkbook.Worksheets("Sheet2").Select
Set title = Range(Range("b1"), Cells(Rows.Count, 1).End(xlUp))
For Each cell In title
 Print #fnum, "#EXTINF:,"; cell.Text
Print #fnum, cell.Offset(0, 1).Text
Print #fnum,
Next

Close #fnum


End Sub

myfile = "" & "playlist.m3u"
fnum = FreeFile()
Open myfile For Output As fnum
Print #fnum, "#EXTM3U"
Print #fnum,
ActiveWorkbook.Worksheets("Sheet2").Select
Set title = Range(Range("b1"), Cells(Rows.Count, 1).End(xlUp))
For Each cell In title
 Print #fnum, "#EXTINF:,"; cell.Text
Print #fnum, cell.Offset(0, 1).Text
Print #fnum,
Next