i = 1 While i < 65536 If oSheet.Range("A"&i).value = "" Then ' ASSUME ROW IS EMPTY IF THIS COLUMN IS EMPTY oSheet.Range("A"&i&":A65536").EntireRow.Delete i = 65537 End If i = i + 1 Wend wkb.Save wkb.close '--- Destroy open objects Set objRange ...
Sheet Metal Corrosion coverage is for the first 4 years or 50,000 miles, whichever comes first. Rust-through coverage is for the first 6 years, unlimited mileage. Emission Control System Warranty* *For light duty trucks, see “How to Determine the Applicable Emissions Control System Warranty” ...