Range, Union Method

Ich habe ein Problem. Folgendes Code-Stück gibt mir den Fehler 1004, Application-defined or Object-defined Error.
Ich möchte damit zwei Range Bereiche auswählen um eine Grafik (Chart) aufzuzeichnen.

Kann mir jemand helfen? Vielen Dank!

Dim r1 As Range
Dim r2 As Range
Dim unionRange As Range
Dim spalte_grouped As Integer
spalte_grouped = 36
ThisWorkbook.Sheets("Grouped_Failure_Analysis").Select
Set r1 = Range(Cells(2, 2), Cells(2, spalte_grouped))
Set r2 = Range(Cells(3, 2), Cells(4, spalte_grouped))
Set unionRange = Union(r1, r2)
ThisWorkbook.Sheets("Operational").Select
Charts("Operational").SetSourceData Source:=Sheets("Grouped_Failure_Analysis").Range(unionRange), PlotBy:=xlRows