resize xlsx output with vba

The below VB is almost complete but when the xlsx is saved to the directory, I need to resize and then remove B1:B12. I added these lines in hopes of doing that but I am getting a Select method of range class failed. Thank you .

Cells.Select
Cells.EntireColumn.AutoFit
Range("B1:B12").Select
Selection.ClearContents

Option Explicit
Private Sub CommandButton21_Click()
    Dim myDir As String, fn As String
    myDir = "C:\Users\cmccabe\Desktop\EmArray\"
    fn = Dir(myDir & "*.txt")
    Do While fn <> ""
       CreateXLSXFiles myDir & fn
       fn = Dir
    Loop
 End Sub
 Sub CreateXLSXFiles(fn As String)
     Dim txt As String, m As Object, n As Long, fp As String
     Dim i As Long, x, temp, ub As Long, myList

     myList = Array("Display Name", "Medical Record", "Date of Birth", _
                    "Order Date", "Gender", "Barcode", "Sample", "Build", _
                    "SpikeIn", "Location", "Control Gender", "Quality")

    fp = "C:\Users\cmccabe\Desktop\EmArray\"

    With Worksheets(1)
        .Cells.Clear
        .Name = CreateObject("Scripting.FileSystemObject").GetBaseName(fn)
    On Error Resume Next
    n = FileLen(fn)
    If Err Then
        MsgBox "Something wrong with " & fn
        Exit Sub
    End If
    On Error GoTo 0
    n = 0
    txt = CreateObject("Scripting.FileSystemObject").OpenTextFile(fn).ReadAll
    With CreateObject("VBScript.RegExp")
        .Global = True: .MultiLine = True
        For i = 0 To UBound(myList)
            .Pattern = "^#(" & myList(i) & " = (.*))"
            If .test(txt) Then
                n = n + 1
                Sheets(1).Cells(n, 1).Resize(, 2).Value = _
                Array(.Execute(txt)(0).submatches(0), .Execute(txt)(0).submatches(1))
            End If
        Next
        .Pattern = "^[^#\r\n](.*[\r\n]+.+)+"
        x = Split(.Execute(txt)(0), vbCrLf)
        .Pattern = "(\t| {2,})"
        temp = Split(.Replace(x(0), Chr(2)), Chr(2))
        n = n + 1
        For i = 0 To UBound(temp)
            Sheets(1).Cells(n, i + 1).Value = temp(i)
        Next
        ub = UBound(temp)
        .Pattern = "((\t| {2,})| (?=(\d|"")))"
        For i = 1 To UBound(x)
            temp = Split(.Replace(x(i), Chr(2)), Chr(2))
            n = n + 1
            Sheets(1).Cells(n, 1).Resize(, ub).Value = temp
        Next
    End With
    .Copy
        Application.DisplayAlerts = False
        ActiveWorkbook.SaveAs Filename:=fp & .Name, _
                              FileFormat:=xlOpenXMLWorkbook
    Cells.Select
    Cells.EntireColumn.AutoFit
    Range("B1:B12").Select
    Selection.ClearContents
        ActiveWorkbook.Close False
        Application.DisplayAlerts = True
    End With
End Sub