VBA- Benytte objekter for å gjøre koden kortere og bedre

Har noe VBA kode, som jeg gjerne vil noen endriger på.
Her er det 2 sheets som skal få et range til source, noen ganger er det flere.

Kan jeg ved hjelp av objekter og arrays, lage koden litt mere fleksibel?

Ønsker å definere objekter.( sheets, ranges, etc )
så ønsker jeg å plassere disse i Arrays. ( hvis mulig)

her kommer koden jeg ønsker å rette på.

....

Sheets("DdriftS1").Select
ActiveChart.Select
    With ActiveChart
      .SetSourceData Source:=Sheets("Drift1"). _
        Range("A7:S" & lgLsRw(1)), PlotBy:=xlColumns
      With .Axes(xlCategory)
        .MinimumScale = lgDyNr(1)
        .MaximumScale = lgDyNr(2)
      End With
    End With

Sheets("DdriftS2").Select
ActiveChart.Select
    With ActiveChart
      .SetSourceData Source:=Sheets("Drift1"). _
        Range("A7:A" & lgLsRw(1) & ", T7:AK" & lgLsRw(1)), PlotBy:=xlColumns
      With .Axes(xlCategory)
        .MinimumScale = lgDyNr(1)
        .MaximumScale = lgDyNr(2)
      End With
    End With