Problems with plotting of graphs

Question

Sub plottinggraphs()
Dim rng1, rng2, rng3, rng4, rng5, rng6, rng7, rng8 As Range
Dim combine1 As Range
Dim combine2 As Range
LastRow = ActiveSheet.UsedRange.Rows(Act