Open Text in Current WorkBook

Try this:

Sub OpenPchFile()

    Dim PchFile As Variant
    Dim PchWorkbook As Workbook
    
    PchFile = Application.GetOpenFilename("Punch Files (*.pch), *.pch")
    
    If PchFile <> False Then
        Workbooks.OpenText Filename:=PchFile, DataType:=xlFixedWidth, startrow:=7, comma:=False
        Set PchWorkbook = ActiveWorkbook
        PchWorkbook.Sheets(1).Copy After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
        PchWorkbook.Close savechanges:=False
    Else
        MsgBox "Stopping because you did not select a file"
    End If
        
End Sub