need help on macro/VBA programming selecting a range

Hi,

This might do what you want

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim isect As Range
Set isect = Application.Intersect(Target, [A:A])
If Not isect Is Nothing Then
Range(Target, Range("BF" & Target.Row)).Copy Sheet1.[A1]
End If
End Sub

1. To add this code to your file, press Alt+F11,
2. In the VBAProject window, top left side, find your sheet name under your
file name and double click it.
3. Paste in or type the code above.

Whether this macro does what you want depends on what you mean by "starting
in cell A1"
 >> Stay informed about: need help on macro/VBA programming selecting a range