Mehrfachauswahl Fehler im Code

Sub Hauptkonto_löschen_Test3()
Dim suchbegriff As String
Dim fc As Object
Dim i As String
Dim s, s1, s2, s3 As String
Dim s4 As String
Dim s5 As String
Dim r As Long
'Dim b1 As Range, b2 As Range, b3 As Range, myMultiAreaRange As Range
Dim b1 As Range
Dim b2 As Range
Dim b3 As Range
Dim myMultiAreaRange As Range
suchbegriff = "test16"
'suchbegriff = UserForm2_letztes_Konto_löschen.TextBox25
Set fc = Worksheets("Hilfstabelle").Columns("A").Rows("2:65000").Find(what:=suchbegriff)
fc.Select
s = Selection.Column
r = Selection.Row
s1 = (Selection.Column) + 3
s2 = (Selection.Column) + 13
s3 = (Selection.Column) + 15
s4 = (Selection.Column) + 21
s5 = (Selection.Column) + 17
'Debug.Print s1
'Debug.Print s2
'Debug.Print s3
'Debug.Print s4
Set b1 = ActiveCell
Set b2 = Range(Cells(r, s1), Cells(r, s2))
'Set b3 = Range(Cells(r, s3), Cells(r, s4))
'Set myMultiAreaRange = Union(b1, b2, b3)
Set myMultiAreaRange = Union(b1, b2)
myMultiAreaRange.Select
End Sub