How to join two different ranges and make it one range of cells

One possibility:

If CheckBox1.Value = True And CheckBox3.Value = True Then
    With ThisWorkbook.Sheets("Sheet3")
          For Each AddrBlock in array("K5:K2092", "K4181:K6267")
               For each cell in .Range(AddrBlock)
                    strto = strto & cell.Value & ";"   
               Next cell
         Next AddrBlock
    End With

    If Len(strto) > 0 Then strto = Left(strto, Len(strto) - 1)
End If

Perhaps another

Dim myCells As Range
    If CheckBox1.Value = True And CheckBox3.Value = True Then
        Set myCells = Union(Range("A4:A90"), Range("D5:D90"))    '<---change Ranges as required
        For Each cell In myCells
            'If cell.Value Like "?*@?*.?*" Then
            strto = strto & cell.Value & ";"

        Next cell
        If Len(strto) > 0 Then strto = Left(strto, Len(strto) - 1)
    End If

Hi kmakjop

If that takes care of your original question, please select Thread Tools from the menu link above and mark this thread as SOLVED.

Thanks for the Rep...

Hi kmakjop

If that takes care of your original question, please select Thread Tools from the menu link above and mark this thread as SOLVED.