Sub Кнопка1()
Call Функция (1,5,6)
End Sub

Sub Кнопка2()
Call Функция (2,3,4)
End Sub

Function Функция(Col1 As Integer, Col2 As Integer, Col3 As Integer)
    Далее должен идти поиск и активация нужных строк по списку ниже'

    Columns("A:C").Hidden = True 'Строка 1
    Columns("D:F").Hidden = True 'Строка 2
    Columns("H:J").Hidden = True 'Строка 3
    
    Columns("A:C").Hidden = False 'Строка 4
    Columns("D:F").Hidden = False 'Строка 5
    Columns("H:J").Hidden = False 'Строка 6    
End Function

Sub Кнопка1()
Call Функция(1, 5, 6)
End Sub

Sub Кнопка2()
Call Функция(2, 3, 4)
End Sub

Sub Функция(ParamArray rows() As Variant)
    Dim i As Integer
    For i = 0 To UBound(rows, 1)
        Select Case rows(i)
            Case 1
                Columns("A:C").Hidden = True 'Строка 1
            Case 2
                Columns("D:F").Hidden = True 'Строка 2
            Case 3
                Columns("H:J").Hidden = True 'Строка 3
            Case 4
                Columns("A:C").Hidden = False 'Строка 4
            Case 5
                Columns("D:F").Hidden = False 'Строка 5
            Case 6
                Columns("H:J").Hidden = False 'Строка 6
            Case Else
                'какое-нибудь еще действие для числа, не равного 1..6
        End Select
    Next i
End Sub