=ЕСЛИ(ПОИСКПОЗ("Адрес организации";БАЗА!A:A;0)+СТРОКА(A1)<ПОИСКПОЗ(9^9;БАЗА!A:A);ИНДЕКС(БАЗА!A:A;ПОИСКПОЗ("Адрес организации";БАЗА!A:A;0)+СТРОКА(A1););"")

Sub mrshkei()
Dim arr, i As Long, n as long lr As Long
With Worksheets("База")
lr = .Cells(Rows.Count, 1).End(xlUp).Row
arr = .Range("A1:A" & lr)
For i = LBound(arr) To UBound(arr)
    If arr(i, 1) = 7 Then
        For n = 1 To lr
            If arr(i + n, 1) <> 8 Then
            If arr(i + n, 1) <> "" Then
                x = x & arr(i + n, 1) & vbLf
            End If
            Else
                Worksheets("Лист1").Range("B2") = x
                Exit Sub
            End If
        Next n
    End If
Next i
End With
End Sub

Sub FullAdres()
Dim FoundAdres As Range
Dim FAdr As Long
Dim EAdr As Long
Dim i As Long
     Columns(2).ClearContents
  With Worksheets("БАЗА")
    Set FoundAdres = .Columns(1).Find("Адрес организации", , xlValues, xlWhole)
      FAdr = FoundAdres.Row + 1
      EAdr = .Columns(1).Find("8", FoundAdres).Row - 1
      For i = FAdr To EAdr
        Range("B2") = Range("B2") & Chr(10) & .Cells(i, 1)
      Next
  End With
End Sub

замените 
Worksheets("Лист1").Range("B2") = x
на
Worksheets("Лист1").Range("B2") = Left(x, Len(x) - 1)

Function myaddress(rng As Range) As String
Dim cell As Range
For Each cell In rng
    If cell = "Адрес организации" Then
        x1 = 1: GoTo XXX
    End If
    If x1 = 1 And cell <> 8 Then
        myaddress = myaddress & cell & vbLf
    ElseIf x1 = 1 And cell = 8 Then
         myaddress = Left(myaddress, Len(myaddress) - 1)
        Exit For
    End If
XXX:
Next cell
End Function