Is that really an HTML file with HTML tags, or is it actually just a text file with a fixed width fond and spaces to get the data into the correct columns? If it is a text file, you would need something like this:

Code:
' Adjust the column locations to fit your data
Workbooks.OpenText _
            Filename:=strImportFile, Origin:=437, StartRow:=1, DataType:=xlDelimited, _
            TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
            Semicolon:=False, Comma:=True, Space:=False, Other:=False, _
            FieldInfo:=Array(Array(1, 2), Array(2, 1), Array(3, 2), Array(4, 2), Array(5, 2), _
            Array(6, 2), Array(7, 2), Array(8, 2), Array(9, 2), Array(10, 3), Array(11, 1), _
            Array(12, 2), Array(13, 2), Array(14, 2), Array(15, 2), Array(16, 1), Array(17, 2), _
            Array(18, 1), Array(19, 2), Array(20, 2), Array(21, 2), Array(22, 2), Array(23, 2), _
            Array(24, 9), Array(25, 9), Array(26, 9), Array(27, 9), Array(28, 9), Array(29, 9), _
            Array(30, 9), Array(31, 9), Array(32, 9), Array(33, 9), Array(34, 9), Array(35, 9), _
            Array(36, 9), Array(37, 9), Array(38, 9), Array(39, 9), Array(40, 9), Array(41, 9), _
            Array(42, 9), Array(43, 9), Array(44, 9), Array(45, 9), Array(46, 9), Array(47, 9), _
            Array(48, 9), Array(49, 9), Array(50, 9), Array(51, 9), Array(52, 9), Array(53, 9), _
            Array(54, 9), Array(55, 9), Array(56, 9), Array(57, 9), Array(58, 9), Array(59, 9), _
            Array(60, 9), Array(61, 9), Array(62, 9), Array(63, 9), Array(64, 9), Array(65, 9), _
            Array(66, 9), Array(67, 9), Array(68, 9), Array(69, 9), Array(70, 9), Array(71, 9), _
            Array(72, 9), Array(73, 9), Array(74, 9), Array(75, 9), Array(76, 9), Array(77, 9), _
            Array(78, 9), Array(79, 9), Array(80, 9), Array(81, 9), Array(82, 9), Array(83, 9), _
            Array(84, 9), Array(85, 9), Array(86, 9), Array(87, 9), Array(88, 9)), _
            TrailingMinusNumbers:=True
        ' Set column widths
        strSheetName = ActiveSheet.Name
        ActiveWorkbook.Worksheets(strSheetName).Columns("A:A").EntireColumn.AutoFit
        ActiveWorkbook.Worksheets(strSheetName).Range("G:H").EntireColumn.AutoFit
        ActiveWorkbook.Worksheets(strSheetName).Range("J:K").EntireColumn.AutoFit
        ActiveWorkbook.Worksheets(strSheetName).Range("M:O").EntireColumn.AutoFit
        ActiveWorkbook.Worksheets(strSheetName).Range("S:W").EntireColumn.AutoFit