Olá,
uma forma de fazer (não sei se a melhor) seria:
Dim ColunasIni As Long, NumColunas As Long
ColunaIni = 4
NumColunas = ActiveSheet.Range("A20").Value2
ActiveSheet.Range(Cells(1, ColunaIni), Cells(1, ColunaIni + NumColunas - 1)).EntireColumn.Hidden = True
End Sub
Abraço.
Filipe Magno