i need help with a VBA Page Code

This is the code i have for rows
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Count > 1 Then Exit Sub
If Target.Row < 8 Then Exit Sub
If Target.Row > 22 Then Exit Sub
If Target.Row Mod 2 <> 0 Then Exit Sub
Cells(Target.Row, 1).Copy
Range("$d2).Select
ActiveSheet.Paste
End Sub

Now i need a code that does the same but for colomns
the Colomns are a through d and the copy values are in row 2.

thanks for your help