Hi Diane,
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column <> 1 Then Exit Sub
ActiveCell.Resize(1, 7).Copy Sheets("Sheet2").Range("B2")
Sheets("Sheet2").Select
End Sub
Where you will select a cell in column A and that cell and the next 6 in the
row are displayed starting in B2 of sheet 2.
HTH
Regards,
Howard