Try this:

Copy this code into the code window for Sheet
-----------------------------------------------------------------------------------------
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
Dim GoOn
If Target.Column = 1 And Target.Value < "" Then
GoOn = MsgBox("Copy Vendor Info?", vbOKCancel)
If GoOn < vbOK Then
Exit Sub
Else
CopyVendorInfo
End If
End If

End Sub
-----------------------------------------------------------------
Copy this code into a regular modul
-----------------------------------------------------------------------------------------
Sub CopyVendorInfo()
Dim BlankCell As Integer

ActiveCell.EntireRow.Copy
Sheet2.Select
BlankCell = Application.WorksheetFunction.CountA(Sheet2.Range( "A:A")) + 1
Sheet2.Cells(BlankCell, 1).Select
Selection.PasteSpecial (xlPasteValues)
Application.CutCopyMode = False

End Su
------------------------------------------------------------------------------------------
Maybe not the best way to do it, but it works.
"Larry" wrote:

I need a macro that will let me do this: When I click on a vendor ID number
in column A of sheet 1, I want all vendor information on that row to be
automatically copied to the next empty row on sheet 2, including the vendor
ID number, in the appropriate cells. Can you help? Thanks!