Excel VBA - Automatisches Textausfüllen

Guten Abend,

ich möchte in Excel mithilfe von Microsoft: Visual Basics for Applications eine Funktion erstellen, durch welche ein automatisches Ausfüllen der weiteren 3 Spalten stattfindet.
Um ins Detail zu gehen, möchte ich, wenn in der Spalte G die Funktion ausgeführt wird, dass die Spalten G,H,I,J mit einem festgelegten Texten ausgefüllt wird. Zum Beispiel wird die Funktion "=Tesmix" abgerufen und in Spalte G soll der festgelegte Name stehen, in Spalte H die Tätigkeit usw.

Kann mir jemand ein Link zu einem Tutorial senden oder die Codezeilen für eine Spalte schreiben, damit ich weiß, wie es funktioniert.

Grüße
Tesmix

Option Explicit

Public Function Tesmix() As Variant
    Application.Volatile
    Tesmix = "foo"  
    Evaluate "UpdateAnotherCell(" & Application.Caller.Worksheet.Name & "!" & Application.Caller.Offset(0, 1).Address & ", """ & "bar" & """)"  
    Evaluate "UpdateAnotherCell(" & Application.Caller.Worksheet.Name & "!" & Application.Caller.Offset(0, 2).Address & ", """ & "baz" & """)"  
End Function

Private Sub UpdateAnotherCell(rng As Range, val As Variant)
    rng = val
End Sub