Auto filling bill number and date

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim nname As String, ddate As Date, billnr As Long, custnr As Long, cfind As Range
Cancel = True
If Target.Address <> "$B$2" Then GoTo enableevents
If Target = "" Then GoTo enableevents
On Error GoTo enableevents
Application.enableevents = False
With Worksheets("sheet1")
nname = .Range("B1")
custnr = Target
ddate = .Range("B3")
billnr = .Range("B4")
End With
With Worksheets("sheet2")

Set cfind = .Columns("A:A").Find(what:=custnr, lookat:=xlWhole)
If Not cfind Is Nothing Then
If Trim(cfind.Offset(0, 1)) = nname Then
cfind.Offset(0, 2) = Format(ddate, "m/d/yy")
cfind.Offset(0, 3) = billnr
End If
End If
.Activate
End With
MsgBox "macro done. check sheet2"
enableevents:
Application.enableevents = True

End Sub

Private Sub Worksheet_Change(ByVal Target As Range)



End Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim nname As String, ddate As Date, billnr As Long, custnr As Long, cfind As Range
    Cancel = True

If Target.Address <> "$D$1" Then GoTo enableevents
If Target = "" Then GoTo enableevents
On Error GoTo enableevents
Application.enableevents = False
With Worksheets("sheet1")
nname = .Range("F1")
custnr = "00" & Target
ddate = .Range("D2")
billnr = .Range("D3")
'End With
'With Worksheets("sheet1")

Set cfind = .Columns("G:G").Find(what:=custnr, lookat:=xlWhole)
If Not cfind Is Nothing Then
If Trim(cfind.Offset(0, 1)) = nname Then
cfind.Offset(0, 2) = Format(ddate, "m/d/yy")
cfind.Offset(0, 3) = billnr
End If
End If
.Activate
End With
MsgBox "macro done. check sheet1 columns I and J"
enableevents:
Application.enableevents = True

End Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim nname As String, amount As Long, billnr As Long, custnr As Long, cfind As Range, cfind1 As Range
Dim r2 As Range
    Cancel = True

If Target.Address <> "$D$1" Then GoTo enableevents
If Target = "" Then GoTo enableevents
On Error GoTo enableevents
Application.enableevents = False
With Worksheets("sheet1")
Set r2 = Range(.Range("I1"), .Cells(1, Columns.Count).End(xlToLeft))
Set cfind1 = r2.Find(what:=Range("A3"), lookat:=xlWhole)
nname = .Range("F1")
custnr = "00" & Target
amount = .Range("D2")
billnr = .Range("D3")
End With
With Worksheets("sheet1")

Set cfind = .Columns("G:G").Find(what:=custnr, lookat:=xlWhole)
If Not cfind Is Nothing Then
If Trim(cfind.Offset(0, 1)) = nname Then
.Cells(cfind.Row, cfind1.Column) = amount
.Cells(cfind.Row, cfind1.Column + 1) = billnr
'cfind.Offset(0, 2) = amount
'cfind.Offset(0, 3) = billnr
End If
End If
.Activate
End With
enableevents:
Application.enableevents = True

End Sub