Oprette sub, der skriver til celler

Hejsa.

Jeg har lavet en lille public function i excel, der udregner forskellige værdier, men den returnerer jo kun een værdi til den celle, hvorfra den kaldes.
Men jeg vil gerne have nogle af de andre værdier ud til regnearket også. Jeg kan imidlertid ikke få den til at skrive nogen af dem.

Her er min kode:

""""""
Public Function sizematch(BSC, start As Double)

Dim sammenlign, matchtal As Double

Dim i, matchselskab, antalselskaber As Integer
   
i = 0
matchtal = 0
sammenlign = 1000000000

For i = 1 To 256
    If ActiveSheet.Cells(9, i) > 0 Then
        antalselskaber = i - 1
    End If
Next i

i = 0

For i = 2 To BSC - 1
    matchtal = ActiveSheet.Cells(start, BSC) - ActiveSheet.Cells(start, i)
        If Abs(matchtal) <= Abs(sammenlign) Then
            If ActiveSheet.Cells(start, i) > 0 Then
                sammenlign = matchtal
                matchselskab = i
            End If
        End If
Next i
i = 0

For i = BSC + 1 To antalselskaber
    matchtal = ActiveSheet.Cells(start, BSC) - ActiveSheet.Cells(start, i)
        If Abs(matchtal) <= Abs(sammenlign) Then
            If ActiveSheet.Cells(start, i) > 0 Then
                sammenlign = matchtal
                matchselskab = i
            End If
        End If
Next i

sizematch = matchselskab
End Function
"""""

Jeg ville gerne for eksempel udskrive antalselskaber og matchtal til to andre celler uden at skulle lave en helt ny funktion.
Det er noget med, at en funktion ikke kan udskrive til flere celler, men kan man så gøre det gennem en sub eller sådan noget? I så fald hvordan?

Jeg har prøvet at indsætte linier som
Cells(3, 7).Value = antalselskber
og
Range(2, 7).Select
ActiveCell.FormulaR1C1 = antalselskaber

Men så virker hele funktionen ikke...

Håber der er nogen, der kan hjælpe