Depends on what you're trying to do


Option Explicit
Sub Array_Tasks_1()
    Dim aryRanges() As Variant
    Dim x As String
    x = "7:"
    Dim y As String
    y = "50"
     
     
    aryRanges = Array(Range("K" & x & "K" & y), Range("L" & x & "L" & y))
     
    MsgBox aryRanges(0).Address
    MsgBox aryRanges(1).Address
    
     aryRanges(0).Interior.Color = vbGreen
     aryRanges(1).Interior.Color = vbRed
     
End Sub