Removing Arrows In Filtered Table?

I have a table A-AP 4-499 (row 4 being the column headers and 5 being the first row of data).

I'd like to remove some of the filter drop-down arrows as they aren't needed for some column headers and they also look unsightly.

This code works to remove all of the arrows:

Sub HideArrows()
Dim c As Range
Dim i As Integer
i = Cells(1, 1).End(xlToRight).Column
Application.ScreenUpdating = False
For Each c In Range(Cells(1, 1), Cells(1, i))
c.AutoFilter Field:=c.Column, visibledropdown:=False
Next
Application.ScreenUpdating = True
End Sub

However, I want to only remove arrows in the following column headers: A, G, I, J, K, M, N, O, P. I want to keep the rest.