Почему я получаю пробелы, когда я масштабируюсь, чтобы соответствовать странице VBA

Question

Я пытаюсь масштабировать свои ячейки от А1 до В16, чтобы соответствовать размеру страницы. Но это не работает. Там еще тонна белого промежутка. не вижу, что я делаю неправильно.

Ссылка на данные с большим количеством пробелов

Sub PrintActiveSheet()
    Dim ws As Worksheet: Set ws = ThisWorkbook.ActiveSheet
    With ws.PageSetup
             .Zoom = False
             .FitToPagesWide = 1
             .FitToPagesTall = 1
             .PrintArea = "A1:B16"
    End With

End Sub