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