Flexibler Datenbereich im Dia

ich möchte in einem bestehenden Diagramm den Datenbereich flexibel gestalten.
Der eingestellte Datenbereich ist z. B. A5:B37. Wenn ich jetzt in B4 eine Zahl eingebe (z.B. 10) dann soll der Datenbereich auf A5:B47 erweitert werden.
Mit folgendem Code erhalte ich Fehlermeldung. Wie müßte er richtig lauten?

Sub Makro4()
variabel = Sheets(2).Cells(4, 2).Value
Charts(1).SetSourceData Source:=Sheets(2).Range("A5:B" & variabel), PlotBy:=xlColumns
End Sub

MfG
Hans