Hi guys,

I am trying to create the vertical profiles of certain meteorological characteristics. I have 5 height levels on which I am plotting temperature, humidity and so on. The data format however does not allow me to plot the graph in an easy way, thus I gotta create a macro for that. I am adding the lines of the vertical profile, where the name of the line is still the same and heights are still the same too. I am only changing the measured data (measured every 10 minutes) in columns E to I. Is there any way how to create a macro to do it easily? (I used "use i as integer" once but I´m not really good in these things so need help). Thanks a lot! Below is a code for first two measurements: 

Sub KG()
'
' KG Makro
'

'
    ActiveSheet.ChartObjects("Graf 6").Activate
    ActiveChart.SeriesCollection.NewSeries
    ActiveChart.FullSeriesCollection(1).Name = "=Nejteplejsi!$E$1"
    ActiveChart.FullSeriesCollection(1).XValues = "=Nejteplejsi!$E$2:$I$2"
    ActiveChart.FullSeriesCollection(1).Values = "=Nejteplejsi!$J$2:$J$6"
    ActiveChart.SeriesCollection.NewSeries
    ActiveChart.FullSeriesCollection(2).Name = "=Nejteplejsi!$E$1"
    ActiveChart.FullSeriesCollection(2).XValues = "=Nejteplejsi!$E$3:$I$3"
    ActiveChart.FullSeriesCollection(2).Values = "=Nejteplejsi!$J$2:$J$6"
End Sub