Append the following line:
objChart.SetSourceData objExcel.Sheets(2).Range("A1:F2")
Edit: To add another series try this:
Function GetAddress(sheet, range)
GetAddress = "=" & sheet.Name & "!" & sheet.Range("A5:F5").Address(,,-4150)
End Function
Set series = objChart.SeriesCollection.NewSeries
series.XValues = GetAddress(objWorksheet, "A4:F4")
series.Values = GetAddress(objWorksheet, "A5:F5")