Hinzufügen von Inhalt von einer Zelle in eine string-variable in VBA. Auch, hinzufügen von Zellen darunter mit offset

Habe ich eine einfache Funktion, die gehen, um zu ziehen aus einer bestimmten Zelle (N4). Wenn es Zellen unter, dann wird es Schleife und sammeln Sie alle den Inhalt der Zelle aus und trennen Sie mit Komma.

Ich bin immer #VALUE! Fehler in excel jetzt und ich weiß, wo mein Problem liegt, aber kann nicht herausfinden, wie man es beheben, da bin ich nicht so bewandert mit excel-vba code. Ich denke das Thema ist mit ActiveSheet.Range("N4").Value - und der offset-Teil.

Ich bin mir nicht sicher, wie Sie offset wählen Sie dann den Wert in den text, dann fügen Sie es auf meine string-Wert.
Jeder Gedanke, wie kann ich wählen Sie den Inhalt aus der Zelle und fügen Sie die string-variable und das gleiche tun, wenn Sie ausgeglichen?

Hier ist mein code:

Function pullshit() As String

Dim output As String
Dim counter As Integer

counter = 1

output = ActiveSheet.Range("N4").Value

If Application.offset(N4, counter, 0).Value = "" Then

    pullshit = output

Else
    While counter <> 0
        output = output + ", " + Application.offset(N4, counter, 0).Value
        counter = counter + 1

        If Application.offset(N4, counter, 0) = "" Then
            counter = 0
        End If
    Wend

    pullshit = output

End If

End Function