Disposition (grupper)

Jeg har samme problem som beskrevet i spørgsmålet "Kode til grupper". Jeg kan i midlertid ikke få svaret (se nedenstående) til at virke. Jeg får følgende fejl: "Aplication-defined or object-defined error".
Jeg forstår i øvrigt ikke hvad der sker i linien:
"Set RangeToUse = Range(Cells(1, 2), Cells(65536, 2).End(xlUp))._
      Offset(0, -1).SpecialCells(xlCellTypeBlanks)"

Jeg håber spørgsmålet er let!

Sub GroupThem()
Dim RangeToUse As Range
Dim SingleArea As Range
    ActiveSheet.Outline.SummaryRow = xlAbove
    Set RangeToUse = Range(Cells(1, 2), Cells(65536, 2).End(xlUp)). _
            Offset(0, -1).SpecialCells(xlCellTypeBlanks)
    If RangeToUse.Areas.Count = 1 Then
        RangeToUse.Rows.Group
    Else
        For Each SingleArea In RangeToUse.Areas
            SingleArea.Rows.Group
        Next
    End If
End Sub