For j As Integer = 21 To 38
.Cols(c & j).Caption = a(c & j-20)
.Cols(c & j).Visible = (a.Isnull(c & j-20) = False)
Next
.BuildHeader()