Add Range, copy & paste.

[JapanDave]

I am trying to add a range to this copy and paste Macro, but I keep getting an error on the last line.

Option Explicit


Sub GetData_Example1()
    GetData ThisWorkbook.Path & "\test.xls", "Sheet1", _
            "A1:C5", Sheets("Sheet1").Range("A1"), True, True
            "A7:C10", Sheets("Sheet1").Range("A7"), True, False
End Sub

How do I add a range to copy more than one range?