Auto-populate a range based on active selection with data from another sheet

I would like the value of a range of cells (e.g. "C1:C5") to change based on what cell is currently selected (e.g. "A1"). The range of cells would then populate with data from a second sheet (e.g. Sheets("Data").Range("B2:B6")).

The code I'm currently working with:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

If Not Intersect(Target, Range("C4:G5,C14:G15,C24:G25")) Is Nothing Then
    Cancel = True
    Range("C27:C31").Value = <This needs to pull from another sheet based on what's selected>
End If

End Sub

There are a lot of cells in that intersect that could be clicked. To give an answer of how to construct the "copy" commands based on specific cell(s) being clicked, we'd need a road map. Can you give 2-3 examples, I'm sure you can expand from there once we show the correct method for a few cells with different needs.